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SUMMARY 

The  planned  retirement  of  the  Elxsi  6400  mainfrume  computer  at  ARL  has 
necessitated  the  conversion  of  the  general  purpose  Fortran  data  plotting  program  TRANS  to 
operation  on  a  Macintosh  Ilfic  personal  computer,  where  it  has  been  renamed  MacTRANS. 
The  conversion  has  included  the  limited  use  of  regular  Macintosh  features  such  as  pull  down 
menus,  and  allowed  the  plots  produced  by  MacTRANS  to  be  edited  in  most  commercial 
Macintosh  graphics  programs.  For  most  cases,  the  execution  speed  of  MacTRANS  on  the 
Macintosh  Ilfx  has  been  found  to  be  faster  than  that  of  TRANS  on  the  Elxsi. 
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1 .  INTRODUCTION 

The  inuninent  retirement  of  the  Elxsi  6400  mainframe  computer  at  ARL  has  necessitated 
the  transferral  of  several  programs  to  other  computers.  While  many  of  these  programs 
perform  large  amounts  of  numerical  calculations,  and  thus  are  more  suited  to  transferral  to 
other  mainframe  computers,  the  programs  which  are  graphics  intensive  are  more  suited  to 
transferral  to  computers  which  specialise  in  the  presentation  and  manipulation  of  graphics. 

The  Macintosh  Ilfx  was  selected  as  a  possible  alternative  for  these  graphics  intensive 
programs  as,  in  addition  to  the  graphical  capabilities  it  shares  with  the  other  Macintosh 
personal  computers,  it  possesses  the  fast  processing  speeds  necessary  for  it  to  be  a  viable 
alternative  to  the  Elxsi.  However,  the  Macintosh  computers  use  a  completely  different 
graphics  system  to  the  Ebcsi,  and  thus  these  programs  ne^  to  be  signiffcantly  modified. 

This  document  presents  the  conversion  of  the  general  purpose  data  plotting  program 
TRANS  (Refs  1-3),  which  uses  the  DI-30(X)  computer  graphics  package',  from  operation 
on  the  Elxsi  to  operation  on  a  Macintosh  Dfx,  where  it  has  been  renamed  MacTRANS. 
MacTRANS  will  also  mn,  albeit  with  some  speed  penalty,  on  other  Macintosh  computers 
equipped  with  68020  or  68030  processors,  plus  68881  or  68882  maths  coprocessors. 

The  conversion  has  involved  the  modification  of  the  Elxsi  Fortran  code  so  that  it  would 
compile  under  Language  Systems  Fortran  (Ref.  4)  in  the  Macintosh  Programmers 
Workshop  (MPW)  environment,  the  development  of  a  partial  emulation  of  the  D1-3(X)0 
graphics  package  using  Macintosh  (QuickDraw  procedures,  and  the  addition  of  an  “event- 
loop”  2  to  the  program  so  that  some  of  the  regular  features  of  the  Macintosh  could  be  used, 
e.g.  pull-down  menus  and  “clicking”  between  windows.  However,  the  basic  structure  of 
the  program  has  been  left  intact. 

2.  CONVERSION  STRATEGY 

The  strategy  adopted  in  the  conversion  of  TRANS  to  MacTRANS  was  to 

a)  make  the  necessary  changes  to  the  Fortran  code  to  remove  all  the  Language  System 
Fortran  compile-time  and  run-time  errors 

b)  fw  any  errors  in  the  parts  of  the  program  that  produce  non-graphical  output,  and  tailor 
this  output  so  that  it  can  be  printed  with  the  minimum  of  alteration  on  an  Apple 
LaserWriter  through  MPW 

c)  develop  the  01-3000  emulation  to  the  extent  of  producing  an  image  on  the  Macintosh 
monitor,  and  fix  any  errors  in  the  graphics  producing  sections  of  the  program 

d)  add  colour  to  the  graphics 

e)  produce  the  code  necessary  to  save  the  graphics  in  PICT  files  ^ 


'  DI3000  is  a  computer  graphics  package  from  Precision  Visuals  bic.,  Colorado  USA  that  plots  graphics 

in  (wo  or  three  dimensions.  It  is  used  in  combination  with  the  MeiaTile  System  from  the  same 
company,  and  stores  the  DI3000  graphical  information  in  a  device  independent  file  called  a  metafile, 
which  can  then  be  read  by  a  metafile  translator  and  plolted  on  various  devices. 

^  An  event-loop  is  the  fundamental  pan  of  a  Macintosh  application  which  examines  the  events  that  occur 
while  a  program  is  executing,  e.g.  mouse  button  ‘clicks’  and  menu  item  selection,  and  passes  confrol 
to  the  relevant  sections  of  code  to  provide  the  appropriate  actions. 

^  A  PICT  file  (defined  in  Macintosh  Technical  Note  #27)  is  a  data  fork  file  with  a  SI  2-byte  header, 
followed  by  a  QuickDraw  data  structure  within  which  drawing  opcodes  represent  a  graphic  image. 
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f)  add  the  event-loop 

g)  incorporate  graphics  printing  into  the  event-loop 

The  code  modifications  and  additions  are  dealt  with  in  Sections  3  to  9,  which  give 
representative  examples  for  each  change  made.  A  more  comprehensive  description  of  the 
modifications  is  given  in  Ref.  S.  Wherever  Macintosh  Toolbox  (intrinsic  functions  and 
procedures)  or  QuickDraw  (subset  of  the  Toolbox  dealing  with  graphics  procedures)  calls 
are  shown  in  the  text,  the  reader  is  referred  to  Ref.  6  for  information  on  the  variables 
shown  in  the  calls  and  the  exact  actions  carried  out  by  them.  These  calls  also  need 
compiler  switches,  include  files,  and  special  calling  procedures  which  are  dealt  with  in 
Appendix  A  (see  also  Ref.  4).  Similarly,  wherever  D1-3(X)0  calls  are  shown,  the  reader  is 
referred  to  Ref.  7.  TRANS  commands  are  summarised  in  Appendix  B. 

3.  NECESSARY  CHANGES  TO  ELXSI  FORTRAN 

These  are  the  changes  that  were  needed  to  remove  the  compile-time  and  ran-time  errors, 
and  to  accommodate  the  differences  between  Language  Systems  Fortran  and  Elxsi  Fortran. 

3.1  Intrinsic  Functions 

The  bell  sounding  and  file  renaming  subroutines  were  rewritten  to  use  the  Macintosh 
Toolbox  equivalents  of  the  Elxsi  intrinsic  calls,  as  shown  below. 

a)  Bell 

Call  SysBeep (Duration)  ‘Duration  in  1/60  th's  of  a  second 

b)  Rename 

OSErr  =  GetVol (Int4 (0) , %Bef (VBefNun) )  !Get  Volume  Number 

OSto  »  Rename <01dFil€J«siie,VRefNaii,Nei^ileJ>iame)  .'Change  File  Name 

OSErr  =  FlushVol(Int4(0),VBefNun)  ! Update  Volume 

3 . 2  Encode  Statements 

Problems  were  experienced  with  the  encode  statements  which  stored  character  data  in 
real  variables,  particularly  where  these  variables  were  subsequently  used  as  formats.  In 
these  cases  the  original  encode  statements  were  changed  to  internal  write  statements,  and 
the  real  variables  were  changed  to  character  variables.  For  example,  in  Subroutine 
PNTHDS,  the  code 

102  POBMftTOH  ',,11) 

30  ENOXE(4,102,TTY(4))H0 

was  changed  to 

30  wRiTEfmaeae), ■  (ID ')  Nc 
where  “tty"  was  changed  from  a  real'''4  array  “tty  (8)”  initialised  by 

DATA  (TTY(J),J=1,8)/4H(2X,,4H'  T,4Hime  ,4H  ',5, 

1  4H('  ,4HBlk#,4H',I4,4H))  / 

to  a  charaaer*31  initialised  by: 

DATA  TTY/' (3X,  "  Time  ’',5("  Bl)i#",I4)/)  •/ 

It  would  appear  that  the  encode  statement  cannot  be  used  to  encode  characters  (or 
character  variables)  into  real  variables;  it  can  only  be  used  to  encode  characters  into  other 
character  variables.  However,  it  is  possible  to  use  an  internal  read  statement  to  read 
chaiaaers  into  real  variables. 
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3.3  Formats 

It  was  necessary  to  insert  the  additional  edit  descriptor  “ix,  ”  to  the  start  of  all  the  write 
statement  foimats  to  perform  the  function  of  a  carriage  control  character,  to  ensure  that  the 
first  character  in  each  write  was  printed. 

3.4  Mismatched  Variable  Types 

The  Elxsi  version  of  TRANS  extensively  used  real  variables  to  store  character  data. 
This  was  acceptable  in  Language  Systems  Fortran  where  data  was  read  into  real  variables 
(with  the  exceptions  noted  in  Section  3.2),  but  resulted  in  problems  when  these  character- 
containing  real  variables  were  compared  to  other  character  or  string  variables.  This  mostly 
occurred  when  a  response  from  a  iceyboard  entry  was  compared  to  a  character  constant. 

The  problem  was  removed  by  assigning  the  character  constants  to  real  variables  in  data 
statements  and  then  using  the  teal  variables  in  the  comparison  expressions.  For  example, 
in  Subroutine  TRAN2,  the  code 

TYPE  305 

305  FOBMMdX,  'ARE  SYMBOI£  RBCPD  FC»  PLOTS  :  '$) 

ACCEPT  201,S»«NS 
201  EXXMAT  (A3) 

CALL  CHKUPRtSYMANS.l)  ICCNVERTS  TO  UPPER  CASE 

IFtSYMMIS.EQ. 'Y')  GO  TO  325 

in  which  s  ymans  has  a  default  type  of  real*  4 ,  was  changed  to 
TYPE  305 

305  FC»MAT(1X,  'ARE  SYMBOLS  BE®D  FC»  PLOTS  :  '$) 

ACCEPT  201,SYMANS 
201  EX»MAT(A3) 

CALL  CHKUPRtSYMANS,!)  ! CONVERTS  TO  UPPER  CASE 

TFfSYMANS.EQ.YESS)  GO  TO  325 

where  yes$  (a  real*  4)  was  assigned  in  the  data  statement: 

DATA  YES$/'Y'/ 

Note:  A  similar  problem  occurred  when  characters  were  stored  in  integer  variables  as 
well.  However,  in  this  case,  the  character-containing  integer  variables  could  be 
directly  compared  with  character  constants  (as  in  i.eq.  'Y'  ),  but  not  with  character- 
containing  real  variables  (as  in  SYMANS.EQ.I). 

3.5  Opening  and  Closing  Files 

In  Elxsi  Fortran  code,  the  open  statement  can  be  used  a  second  time  (i.e.  after  the  file 
has  already  been  opened)  to  reset  the  file  pointer  to  the  beginning  of  the  file.  In  Language 
Systems  Fortran,  however,  once  a  file  is  opened  it  must  be  explicitly  closed  before  it  can  be 
opened  again  (otherwise  a  run-time  error  will  result).  This  necessitated  the  inclusion  of 
two  CLOSE  statements,  one  at  the  end  of  Subroutine  BLKLST  (close  (20)),  and  the  other 
before  the  call  to  Subroutine  TRAN2  in  the  main  program  (close  (D). 

3.6  Save  Statement 

Elxsi  Fortran  automatically  saves  all  subprogram  (subroutine  or  function)  variables 
between  calls  to  those  subprograms,  while  Language  Systems  Fortran  does  not. 

To  overcome  this  problem,  the  “-saveall”  compiler  switch  can  be  used  at  the 
compilation  stage,  which  may  significantly  slow  execution  of  the  program,  or  the  necessary 
variables  can  be  saved  individually  in  the  appropriate  subroutines  and  functions  with  the 
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SAVE  Statement,  as  was  done  in  MacTRANS.  The  subroutines  and  variables  involved  are 
shown  in  Table  1. 


TABLE  1 

Subprogram  Variables  Put  into  save  Statements 


Subprogram 

Variables 

BLKLST 

N 

BRKLIN 

All  variables 

INBLK 

IDATA,  LNUMS,  SAVE 

STRIP 

Y,  P.  UP,  ND,  XLA,  YLA,  NOPIPS 

TRAN2 

NOPEN,  Y,  RECTS,  PICTURES, 
SCALING,  JUST,  NAME,  OFFSET, 
WINS,  MARK 

4 .  ADDITIONAL  CHANGES  TO  FORTRAN  CODING 

Additional  changes  were  made  to  tailor  TRANS  to  the  Macintosh.  These  included: 

Main  Program  —  Removal  of  the  default  plot  offset  (used  for  a  particular  plotting 
device  linked  to  the  Elxsi). 

Subroutines  FCLOSE,  FOPEN,  RPT,  and  METRED  —  Changes  to  the  code 
necessary  for  the  new  file-naming  procedure  (see  Section  5.1). 

Subroutine  FRMOPN  —  Adjustment  of  the  starting  position  of  the  plots  to  suit  the 
LaserWriter. 

Subroutines  LPLOT,  HEADNS,  CONBLK.  PNTHDS,  and  ZERO  —  Modifications 
to  the  format  statements  to  fit  the  text  to  the  window  used  by  MacTRANS,  and  keep 
printer  output  within  A4  paper  dimensions. 

Subroutine  MOVE  —  Name  change  to  MMOVE  to  remove  a  conflict  with  a  reserved 
QuickDraw  procedure  name. 

Subroutines  NUMB,  PLTHD,  XAXIS,  and  YAXIS  —  Adjustments  to  the  positioning 
of  the  text  in  the  plots  to  suit  the  Times  font  used  in  MacTRANS. 

5.  DI-3000  GRAPHICS  EMULATION 

The  partial  implementation  of  the  DI-3000  graphics  routines  using  QuickDraw 
procedures  involved  emulating  some  of  the  DI-3000  routines  and  leaving  the  rest  as 
dummy  subroutines,  as  illustrated  in  Table  2. 
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TABLE  2 

Skeleton  DI-3000  Program  Commands  and  Emulation  Actions 


Command 

DI-3000  Action 

QuickDraw  Emulation 

CALLJBEGIN 

Initialise  DI-3000 

No  action 

CALLJDINrr(l) 

Initialise  device  number  1 

No  action 

CALLJDEVON(l) 

Activate  device  number  1 

No  action 

CALLJVSPAC(...) 

Set  the  dimensions  of  the 
display  device 

No  action 

CALLJVPORT(...) 

Set  the  viewport  on  the 
display  device 

No  action 

CALLJWINDO(...) 

Set  the  window  bordering 
the  objects  to  be  viewed 

Set  the  size  of  the  picture 
frame  (@  300  dpi)  and 
window  (to  fit  the  screen), 
and  set  the  scale  faaor 

CALLJFRAME 

Cause  a  new  frame  action 

Open  a  new  window  of  the 
size  calculated  in  JWINDO 

CALLjOPEN 

Open  a  segment 

Open  a  picture  with  the 
picture  frame  set  in 

JWINDO 

CALLJMOVE(...) 

Move  the  pen  to  the  global 
coordinate  in  the  argument 

Same  as  DI-3000 

CALLJDRAW(...) 

Draw  to  the  global 
coordinate  in  the  argument 

Same  as  DI-3000 

CALLJCLOSE 

Close  the  segment 

Close  the  picture  and  save  it 
in  a  PICT  file 

CALLJPAUSE(l) 

Wait  for  user  response 

Wait  for  mouse  button  click 

CALLJDEVOF(l) 

Turn  off  device  number  1 

No  action 

CALLJDEND(l) 

- 1 

Terminate  device  number  1 

No  action 

CALLJEND 

Terminate  DI-3(K)0 

No  action 

Note:  A  DI-3000  program  need  not  callJFRAME  at  the  start  of  the  first  picture;  however, 
in  this  emulation  it  is  necessary. 


5.1  Metafiles  and  PICT  Files 

The  DI-3000  graphics  package  allows  several  individual  frames  (pictures)  to  be  saved 
in  one  metafile.  In  the  MacTRANS  emulation,  the  frames  were  replaced  by  QuickDraw 
pictures,  and  the  metafile  by  several  PICT  files  (each  containing  one  QuickDraw  picture). 
PICT  files  are  described  more  fully  in  Section  7. 

To  accommodate  the  consequential  increase  in  the  number  of  picture  files,  the  file¬ 
naming  procedure  was  modified.  The  new  procedure  adopted  gives  each  PICT  file 
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produced  from  a  single  plot  command  (PLS  or  PLO)  the  same  name  it  would  be  given  in 
TRANS,  but  with  a  single  charaaer  extension  to  identify  it.  These  characters  start  with  a 
lower  case  “a”  and  continue  alphabetically.  For  example,  a  data  file  with  the  name 
“POLAR.DAT”  would  have  the  first  group  of  PICT  files  (from  the  first  plot  command) 
named  “POLAR.PLT.a”,  “POLAR.PLT.b”,  etc;  the  second  group  (from  the  second  plot 
command)  named  “POLAR.PLO.a”,  “POLAR.PLO.b”,  etc;  the  third  group  (from  the  third 
plot  command)  named  “POLAR.PLl.a”,  “POLAR.PLl.b”,  etc;  and  so  on. 

This  modification  was  implemented  in  the  new  code  associated  with  the  DI-3(X)0 
graphics  package  emulation,  but  also  required  changes  to  several  sections  of  the  existing 
TRANS  code.  The  sections  of  TRANS  code  involved  were  those  that 

•  checked  for  existing  metafiles  produced  from  the  current  data  file  (Subroutine  FOPEN ) 

•  renamed  the  metafiles  from  “META.TEMP”  to  “<DataFileName>.PLT’', 
“<DataFileName>.PLO”,  etc.  (Subroutine  FCLOSE) 

•  overlaid  plots  from  separate  metafiles  into  one  metafile  (Subroutines  RPT  and 
METRED) 


5.2  Common  Blocks 


Many  of  the  subroutines  in  the  01-3000  emulation  required  the  use  of  common  blocks 
to  pass  values  between  them.  All  of  these  common  blocks  were  included  in  the  variable 
declarations  of  Subroutine  TRAN2  (the  highest  level  subroutine  linking  together  the 
subroutines  from  which  the  DI-3000  calls  are  made),  and  wherever  necessary  throughout 
the  code  (namely  the  DI-3000  emulation  subroutines  themselves  and  any  other  subroutines 
that  needed  access  to  the  common  block  variables).  The  following  blockdata  section, 
showing  all  the  common  blocks  and  their  functions,  was  used  to  set  the  initial  default 
values  for  the  common  block  variables. 


!  HANDIES  TO  THE  PICTURES 
!  BOUNDING  RECTS  FOR  WINDOWS  AND  PICTURES 


SCAIE  FACTCR 


CEB  THESE  DEOARATIONS  REIATE  TO  MAC  IMPLEMENIATICN  OF  THE  DI3000  CALLS 
BLOCKDATA  DI3000 
RECORD  /PICHANDI£/PIC(20) 

RBCXM)  /RECT/WINDOWRBCT,  HIRESRECT 
CCMCN  /RECirS/WINDOWRECT,  HIRESRECT 
OCMON  /PICIURES/PIC 
REAL  SCALE 

CCMCN  /SCALING/SCAIE 
INTEGER  JHORIZ,  OVERT 
CCMCN  /JUST/ JHCStIZ,  OVERT 
DATA  JH0BIZ/1/,JVERT/I/ 

STRIN3*255  FNAMT. 

CCMCN  /NAME/FNAtE 
INTEGER*2  HOFFSET.VDFFSET 
CCMCN  /CFFSET/HCFFSET.VOFFSET 
RBOatD  /CWIHD0WPTR/WPTR(20) 


TEXT  JUSTIFICATICN  INDICES 


SET  JUSTIFICATICN  TO  BOTTCM  LEFT 
DATA  FILE  NAME 


GRAPHICS  WINDOW  OFFSET 


!  POINTERS  TO  THE  OtAPHICS  WINDOWS 
!  NtMBER  OF  StAPHICS  WIMXWB  OPEN 

!  SET  NIMBER  OF  WINDOWS  CPEN  TO  ZERO 
!  EStRK  SIMBOL  INDEX 

!  SET  MARK  SYMBOL  TO  A  DOT 
!  FLAG  TO  STOP  DISPLAYING  PICTURES 
!  DURING  REP  OCMftND 
!  SET  FLAG  TO  FALSE,  IE  SHOW  PICTURES 


INTEGER*^  WIMJtM 
CCMCN  /WINS/WPTR,WH«JtW 
DATA  WINNCM/0/ 

INTE)GER*4  MKSYM 
aMCN/t«BK/MK.SYM 
DATA  MKSYM/l/ 

ICGICAL  RFIAG 
OCMCN/FIAG/RFIAG 
DATA  RFUG/.FAISE./ 

SAVE  /RECTS/, /PICTURES/, /SCAUMS/, /OUST/, /NAME/, /OFFSET/, /WINS/, /F«RK/ 
END 
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For  the  REPeat  command,  it  was  necessary  to  save  some  of  the  common  blocks 
between  calls  to  Subroutine  TRAN2  (see  Section  3.6).  Some  of  the  common  blocks  were 
also  used  to  pass  information  about  the  windows  and  pictures  opened  by  the  DI-3000 
emulation  to  the  event-loop  section  of  MacTRANS  (see  Section  8). 

5.3  Dummy  DI-3000  Subroutines 

The  DI-3000  routines  listed  below  were  replaced  by  dummy  subroutines  which  return 
control  straight  back  to  calling  code  without  perfoiming  any  operations. 

JBEGIN  JVSPAC  JDEND  JMREAD 

JDINrr  JVPORT  TEND  JMINTR 

JDEVON  JDEVOF  JMGET 

5.4  Emulated  DI-3000  Subroutines 

The  following  DI-3000  routines  were  emulated; 

JCLOSE  JFRAME  JJUST  JPAUSE 

JCMARK  JFSOPN  JMARK  JSIZE 

JDRAW  JHSTRG  JMOVE  JWINDO 

JFONT  JHTEXT  JOPEN 

A  brief  description  of  the  code  used  to  perform  the  actions  requirea  by  these  routines 
follows. 

Note:  Code  dealing  with  the  variable  RFLAG  is  not  strictly  part  of  the  emulation:  it  was 
included  for  the  convenience  of  dealing  with  the  REreat  command. 

CALL  JCLOSE 

a)  Close  the  currently  open  picture 

CALL  CLOSEPICTOBE 

b)  If  not  in  REPeat  command,  draw  the  picmre 

IF  (.NOT.  BFLAG)  CAU.  DRAWICTUI«(PIC(WINNl*1)  .WPTRWDtNlM)  .WP^.PORTRECT) 

c)  Get  the  name  of  the  current  window 

CALL  GETWTITtE  (WPTR  (WINNtJM) ,  %BEF  (FILENAME) ) 

d)  If  not  in  REPeat  command,  save  the  picture  in  a  PICT  file  (see  Section  7) 

IF  (.NOT.  REIA3)  CALL  PICSAVE  (PIC  (WINNIW) ,  FILfWAME,  ERR) 

CALL  JCMARK  (CVALOE) 

Set  the  mark  symbol  index 

MKS.,1  =•  CVALUE 

CALL  JDRAH  (X, Y) 

Draw  a  line  from  the  current  pen  position  to  (XX,YY)  —  calculated  by  multiplying  X 
and  Y  by  the  scaling  factor  (300  dots  per  inch),  rounding  to  the  nearest  integer,  and 
changing  the  sign  of  YY  (the  QuickDraw  positive  Y  direction  is  down) 

XX  -  ININT(X  *  scale) 

YY  =  -INiNT(Y  *  scale) 

CALL  LINETO(XX,YY) 
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CALL  JFONT  (CVALOE) 

Change  font  to  “Times”  —  ignores  argument 

CALL  THXTFQNT  (TIMES) 

CALL  JFRAME 

a)  Increment  the  window  number 


WINNtM  =  WINNtJM  +I 

b)  Set  the  window  title  to  the  file  name  with  the  character  extension 

WINTmZ  =  FNJiME//’.'//a«R(96+WD®JtM) 

c)  Open  a  new  window 

WPTR(WINNUM)  .UP  =  NE10miXM(NIL,WINDCWRB(n’,WINriTLt,F^ 

1  NOCSOWDOCPBOC,  INFPCMT,  TRU,  WDINIWI 

d)  Send  the  new  window  to  the  front 

CALL  SETPORT(WPTR(WINNUM)  .WP) 

e)  Calculate  the  window  offset  and  move  the  window 

KCUB  =  (WINNLM  -  l)*HOFFSET  +  WINDOWRECT . LEFT 
'JGLCR  =  (WINNUM  -  l)*VCfTSET  +  WINDOWFiECT . TOP 
CALL  M3VEWItO>((WPTR(WIl®tJM)  .WP,  HGtiCB,VGLOB,  ELS) 

f)  If  not  in  the  REPeat  command,  make  the  window  visible 

IF  (.NOT.  BFLAG)  CALL  SHOMinMX)M(WPTR(WINNtJM)  .K?) 

CALL  JFSOPN  (CODE, DSPOEV, LON, FILNAM) 

Set  the  file  name  —  ignores  the  remaining  arguments 

FNAME  =  TRIM(FILNAM) 

CALL  JBSTRG  (STRING) 

a)  Get  the  current  pen  location 

CALL  GETPEN(IREF(PT)) 

b)  Calculate  the  length  of  the  string 

IfNCTH  =  INT2  (I£N  (STFONG) ) 

PKIflJ  =  TEMVnDTH(%LCC(STfmG),INT2(0),LEW?rH) 

c)  Get  the  font  information  and  move  the  pen  to  the  position  needed  for  the  text 
justification 

CALL  GETFONTINFiO(%REF(FINro)) 

SEIECT  CASE  (JHOEaz) 

CASE  (1)  !IZFT 

CASE  (2)  (CENTRE 

CALL  M0VE(-ININT(PIXLEN/2.0),INT2(0)) 

CASE  (3)  !RI(3tT 

CALL  MOVE  (-PIXIEN,  1^12  (0) ) 

END  SPTjrCT 
SEILCr  CASE  (OVERT) 

(aSE  (1)  (BOTTCM  =  BASELINE 

(»SE  (2)  (CENTRE  =  1/2  ASCENT 

CALL  M0VE(INr2  (0),ININT (FINED. ASCENT/2.0)) 

CASE  (3)  (TOP  =  ASCENi  LINE 

(»LL  MOVE  (INT2  (0) ,  FINED.  ASCENT) 

END  SEIJ5CT 
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d)  Draw  the  text  and  return  the  pen  to  the  original  position 

CALL  DRA«TEXT(%I£C(SITa»C),IWI2(0),IiNGTM) 

CALL  M3UErO(PT,H,PT.V)  !RES;E3CT  TO  OMGINAL  ICCATION 

CALL  JHTEXT  (MCHARS , RSTR) 

a)  As  for  JHSTRG 

b)  Calculate  the  length  of  the  string 

PIXLEN  =  TEX7vmTrH(%LOC(Rsra).nn2(0),iNr2(NCHARS)) 

c)  As  for  JHSTRG 

d)  Draw  the  text  and  return  the  pen  to  the  original  position 

CALL  DRAHTEXT  (%L0C  (RSTR) ,  INT2  (0) ,  INT2  (NCHABS) ) 

CALL  MDVETO(PT.H,PT.V)  .'REVEJO'  TO  ORIGINAL  PCSITICN 

CALL  JJOST  (CBORIZ.CVERT) 

a)  Set  the  text  justification  indices  (arguments  shown  in  *  able  3) 

JHORIZ  =  CHORIZ 
JVERT  -  CVERT 


TABLE  3 

Justification  Arguments  for  Subroutine  JJUST 


Argument 

I 

2 

3 

CHORIZ 

Uft 

Centre 

Right 

CVERT 

.  _ 1 

Bottom 

Centre 

Top 

CALL  JHAFK  (X,Y) 

a)  Move  to  (X.Y)  using  a  DI-3(X)0  call 

CALL  JMDVE(X,Y) 

b)  Set  symbol  size  to  0.5%  of  the  lessor  of  the  width  or  height  of  the  picture  rectangle 

IF  ((HIRESRECr. RIGHT  -  HIBESCCT.IEFT)  .GT. 

1  (HIBESRDCT. BOTTOM  -  HIRESBECT.TOS>) )  THEN 

SWBZ  =  INIFfr(0.005*FI£lAT(HIBESRECT. BOTTOM  -  HIBESBECT.TOP) ) 

El^ 

S»BZ  =  ININT(0.005*FTiQAT(HIBESRBCT. RIGHT  -  HIRESRBCT.LEFT) ) 

END  IF 

C  FREE  SWBOL  SIZE  AN  EVEN  NUMBER  OF  PIXELS 

IF  (H)D(SYMSZ,2)  .NE.  0)  SYMSZ  =  SYMSZ  t  1 

c)  Draw  the  mark 

SnfTT  CASE  (MKSYM) 

CASE(l)  !  • 

CALL  GETPEN(%REF(PT)) 

►FECT.TOP  -  PT.V  -  SYM5Z/2 
MRECT.BOTTCM  -  PT.V  ♦  SYMSZ/2  +  1 
MBECT.LEFT  -  PT.H  -  SYMSZ/2 
MRECT. RIGHT  -  PT.H  +  SWez/2  +  1 
CALL  PAINTOVAL  (MRECT) 

CASE(2)  !  + 

CALL  MOVE  (IMTZ  (0) ,  INTZ  (-SWSZ/2) ) 

(3VLL  LINE (INT2(0), SYMSZ) 
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caii  MOVE  (itfK  (-saez/2) ,  int2  (-sbcz/Z)  ) 

CHi  LINE(S»eZ,INi2(0)) 

CftSEO)  !  * 

Cftli  MOVE  (INK  (0),INT2(-SKMSZ/2)) 

CMi  UNE  (INK  (0) ,  S»ez) 

CftLL  MOVE (ININr(-0.866*S»eZ/2.0), INK (-SaeZ/4)) 

CALL  LINE  (ININr  (0 . 866*SiaeZ) ,  INK  (-SVMSZ/2) ) 

CALL  MOVE  (INK  (0),  INK  (S»eZ/2)) 

CALL  LINE(ININr(-0.866*ST(MSZ),INK(-SHeZ/2)) 

CASE(4)  !  CIBCIE 

CALL  I3TPEN(%REF(PT)) 

MBBCT.TC*'  =  PT.V  -  S»tSZ/2 
MRECr.BOTTCM  =  PT.V  +  Sl^^eZ/2  +  1 
MRBCT.UTT  =  PT.H  -  SKMSZ/2 
MBECT.RKarr  =  PT.H  +  STMSZ/2  +  I 
CALL  FRAMEOV7kL{MBECr) 

CASE (5)  !  X 

CALL  MOVE  (INK  (-SVMS2/2),  INK  (-SKMSZ/2)) 

CALL  LINE(Sn4SZ,S»GZ) 

CALL  MOVE  (INK  (0) ,  INK  (-SYMSZ) ) 

CALL  LINE(-STMSZ,S»eZ) 

CASE  (6)  !  SCXJABE 

CALL  <3nPEN  (%REF  (PT) ) 

MRECT.TOP  =  PT.V  -  SVMSZ/2 
MRBCT.BOTTOI  =  PT.V  +  STMSZ/2  +  1 
MPBCT.LEFT  =  PT.H  -  STMSZ/2 
MRECT.RIOrr  =  PT.H  +  STMSZ/2  +  1 
CALL  FRAMERBCT  (MRBCT) 

END  SElECr 

d)  Remm  the  pen  to  its  original  position 

CALL  JM0VE(X,T)  IRETUBN  TO  START  POSITICN 

C»LL  OMOVE  (X,Y) 

Move  the  current  pen  position  to  (XX.YY)  —  calculated  by  multiplying  X  and  Y  by 
the  scaling  factor  (300  dots  per  inch),  rounding  to  the  nearest  integer,  and  changing  the 
sign  of  YY  (the  QuickDraw  positive  Y  direaion  is  down) 

XX  =  ININT(X  *  scale) 

TT  =  -ININr  (T  *  scale) 

CALL  MOVETO(XX,TT) 

CALL  JOPEN 

a)  Open  a  new  picture 

PICtWINNCM)  =  OPENPICTURE  (HIRESBECT) 

b)  Set  the  origin  to  the  bottom  left  comer  of  the  picture  frame 

CALL  3ETORIGIN(INK(0),-(HIRESBBOr.BOTTCM  -  HIRESBECT. TC» ) ) 

CALL  JFAOSE 

If  not  in  the  REPeat  command,  wait  for  a  button  click 

IF  (RFIAG)  RETURN 
DO  WHnz  (.NOT.  BUTTON) 

EDO  DO 


to 


CALL  JSIZE  (CXSZZ£,CYSIZE) 

Change  the  text  size  of  the  current  font  —  ignores  CXSIZE  as  the  aspect  ratio  of  the 
characters  cannot  be  changed  in  QuickDraw 

SIZE  =  nUMT  (CXSIZE  *  SCMEl 
(aii  TEXTSIZE(SIZE) 

CALL  JWINDO  (OMIM,aUAX,VMIH,VMAX) 

a)  Set  the  picture  frame  rectangle 

HIPESRECT.TOP  =  0 
HIRESRDCT.IEFT  =  0 

HIRESRECT.Riafr  =  INIKTtaMUC  -  tJMIN)  *  300) 

HIBESPECT.BCriTCM  =  ININT((Vt«X  -  VMDI)  *  300) 

b)  Set  the  graphics  window  rectangle 

QDG  =  JCDGLQBHSt)  !GET  QUICKDRRW  GUBALS 

C  SETT  WINDOWRECT  TO  SCBEEM  DIMENSICNS 

wnmowRECT  =  cpg^.scbeenbits.boonds 

C  CAICULATE  ASPECT  RATIO  OF  PICTURE  FRAME  AND  SCREEN 
RATIO  =  (UMAX  -  tMN)  /  (VMAX  -  VMIN) 

SRATIO  =  FU)AT(WINDOWRECr.RIGHT  -  WINDOWRECT. IZFT  -  8)  / 

1  FIOAT (WINDOWRECT. BCTTTCM  -  WINDOWRECT. TOP  -  44) 

C  IF  ASPECT  RATIO  OF  PICTURE  >  SCREEN  THEN  MAKE  WINDOW  SHALLOWER  THAN 
C  SCREEN  AND  CFFSET  WINDOWS  DOWN,  ET.SF.  )®KE  WINDOW  NARROWER  THAN  SCREEN 

C  AND  OFFSET  WINDOWS  TO  THE  RIOTT. 

IF  (RATIO  .(?r.  SRATTO)  THEN 
WIND01®ECT.TCP  =  WINDOWRECT.  TOP  +  40 
WINDOWRECT. LEFT  ■=  WINDOWRECT. LEFT  +  4 
WINDOWRECT. RIGHT  =  WINDOWRECT. RIGHT  -  4 
WINDOWRECT. BOrnoM  =■  INIOT(FU1AT (WINDOWRECT. RIGHT  - 
1  WINDOWRECT. lEET)  /  RATIO)  +  WINDOWRECT. TOP 

HOFFSET  =  0 
VDFFSET  -  20 
ELSE 

WINDOWRECT.  TOP  =  WINDOWRECT.  TCB  +  40 
WINDOWRECT.  lEET  =  WINDOWRECT.  lEFT  +  4 
WINDOWRECT. BOTTCM  =  WINDOWRECT. BOTTCM  -  4 
WINDOWRECT. RIGHT  =  ININT(FU»T(WI)®OWRECr.  BOTTCM  - 
1  WINDOWRECT. TOP)  *  RATIO)  +  WINDOWRECT. lEPT 

HOFFSET  =  20 
VDFFSET  =  0 
EUD  IF 

b)  Set  the  scaling  factor  to  300  dots  per  inch 

SCALE  =  300.0 


6 .  COLOUR 

To  add  colour,  “CWindows”  were  used  instead  of  normal  windows.  “CWindows”  are 
based  on  “CGrafPotts”  which  allow  full  RGB  colour  control.  The  pen  colour  in  a 
“CGrafPort”  is  changed  by  the  QuickDraw  call 

CALL  BGBEDRECDLOR  (COLOR) 

where  color  is  a  variable  of  type  bgbcqlor  with  a  Language  Systems  Fortran  smicture: 

STRUCTURE  /RGBOOLOR/ 

INTEXER*2 
INnXSK*2 
INrE>3ER*2 
END  STRUCnjBE 


PSD 

OtEEN 

BLUE 


Red,  green,  and  blue  specify  the  amount  of  each  colour  component  ranging  from  0  to 
65535  ($0000  -  $FFFF). 

Colours  were  assigned  to  the  eight  individual  line  types  used  in  TRANS  for  data  plotting 
by  defining  a  new  variable  structure  cxiusutfiRAY  (see  Appendix  A),  as  shown  below,  and 
using  a  one  dimensional  array  ootoR  of  that  type  with  eight  elements  to  record  the  RGB 
colour  values  together  with  a  text  description  of  the  colours  for  each  line  type. 

STBUCIOBE/COlfiBABBKf/ 

CHABACjra3t»9  TEXT 
RECX»D/BGB00IX»/  RGB 
JMD  STRUCTURE 

In  addition,  a  separate  variable  of  the  same  type  was  used  to  return  the  pen  colour  to 
black  after  the  coloured  lines  were  drawn  (all  borders,  scales,  and  text  were  left  black). 

The  default  colours  were  initialised  in  data  statements,  shown  below,  and  passed  to  other 
subroutines  through  a  common  block,  also  shown  below. 

RB00BD/O0IC)BARBM/O01J3R  (8) ,  HLKCOL 
CXMON/OOL/OOIOR,  HLKXJL 

DATA  CX)IjOR(I)  .TEXT/'BUCK  •/,CXa£R(2)  .roCT/ 'RED  '/, 

1  COUOR (3)  .TEXT/ 'GREEN  '/,C0ir»(4)  .TEXT/'BLUE  '/, 

2  COL£»(5)  .TEXT/'CtAN  '/,03I£«.(6)  .TEXT/'MRGEMTA  '/, 

3  OOIjOR(7)  .TEXT/'YEIIOW  '/,OOljC»(8)  .TEXT/'C»AH3E  '/ 

DATA  COWRa)  .RGB.RED/$0000/,amt(l)  .8GB.®EEN/$0000/,COtC»(l)  .R£3.BLUE/S0000/ 
DATA  COI£R(2)  .Bt®.RED/$FFFF/,COlOR(2)  .RGB.(atEEN/$0000/,COIj(»(2)  .RGB.BLUE/SOOOO/ 
DATA  C!OLCm(3)  .RGB.BED/$0000/,CXa£R(3)  .RGB.®EEN/SFFFF/,CX)U)R(3)  .RGB.BLUE/$0000/ 
DATA  QaiOR(4)  .BGB.RED/$0000/,CDtC»(4)  .RGB.GREEN/$0000/,COLOR(4)  .RGB.BLUE/SFFFF/ 
DATA  QOIOR(5)  .BGB.RED/SOOOO/,a3LOR(5)  .BGB.fflEEN/$FFFF/,OOU)R(5)  .RGB.BLUE/$FTFF/ 
DATA  CaUX.(6)  .BGB.RED/$FFFF/,OOU»(6)  .RGB.GREEN/$0000/,COU}R(6)  .RGB. BLUE/ SETTT/ 
DATA  a5U»(7)  .RCaa.RED/SFFET/,QOIiOR(7)  .BCB.GRE£Il/SFFFF/,a)LOR(7)  .RGB.BLUE/SOOOO/ 
DATA  OOIOR<8)  .RGB.RED/SFTFE/.CXJLORtS)  .BGB.GREai/$61A8/,COU5R(8)  .RGB.BLUE/SOOOO/ 
DATA  BIEDOL.TEXT/'BLACK  '/ 

DATA  BIfSOOL .  RGB .  RED/SOOOO/ ,  BLRDOL .  RGB .  GBEEN/SOOOO/,  BLKCOL .  BtS .  BLUE/SOOOO/ 

To  change  the  default  colours,  code  was  insened  into  the  section  of  Subroutine  TRAN2 
dealing  with  the  PLS  command.  This  code  worked  on  the  principle  of  reading  a  line 
number  and  colour  typed  on  the  keyboard  into  a  character  variable  as  a  response  to  a 
prompt,  extracting  the  number  to  identify  the  line,  and  comparing  the  text  description  of  the 
colour  to  those  of  the  various  colours  shown  above.  For  example: 

TVPE  333,  (COIGR(I)  .TEXT, 1=1,8) 

333  FORMAT (U, 'THE  CURRENT  LINE  aatOOBS  ARE: ',/ 

1  IX,  '0  i  1  2  3  4  ',/ 

2  1X,4A9,/ 

3  IX, '5  6  7  8  ',/ 

4  IX,  4A9,  / 

5  IX,  'AVAnABtE  QOIGUBS  : '/ 

6  IX, 'BtACK,  RED,  OIEEN,  LTtSffiEN,  BLUE,  LTBLUE,  ClAN, '/ 

7  IX, 'MAGEWTA,  PURPIE,  lELLOW,  ORANGE.'/ 

5  IX,  'DO  YOU  WISH  TO  CHAtGE  THE  OOIDURS.-'  ;  ',$) 

ACCEPT  334, ANSWER 

334  FORMAT  (Al) 

IF  ((ANSWER  .NE.  "Y")  .AND.  (ANSWER  .NE.  "y"))  00  TO  336 
TYPE  *,  'UNE  OaLOUR' 

339  (XNTINUE 

BEAD(5, '  (A) ')  OOISTR 
IF  (CQLSTR.BQ.  " )  00  TO  340 

OOISTR  -  ADOUSTL(OOIOTU  IRQOVE  lEADING  SPACES 

DO  I«1,UM(TRIM(OOLSTR))  .'FIND  POSITION  OF  OMIA 

IF  (OOI£TR(I:I)  .BQ.  ',')  GO  TO  341 
EM)  DO 
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!BERD  THE  LINE  NLMBER 


341  BEAD (OOLSTR (1:1-1),*)  II 
IF(II.EQ.O)  II  =  1 
IF(II.GT.8)  THEN 

TIPE  *,  ’OJLY  LINE  TYPES  I  TO  8  EXIST' 

GO  TO  339 
END  IF 

COIORCII)  .TEXT  =  M)JUSTL(COrSTR(I+l:))  ICMfiNGE  THE  TEXT  DESCRIPTION 

SHECI  CASE  (OQLOR(II)  .TEXT)  ICHAHSE  THE  COLOUR 

CASE  CBIACK  ') 

OOLOR(II)  .KB. BED  =  $0000 

OOLOR(II)  .BtB.tBEEN  =  $0000 
OOLOR(II)  .RB.BUIE  =$0000 
CASE  ('BED  •) 

CQLORdl)  .BfB.BEE  =  $FETF 
03II»(II)  .RB.CBEEN  =  $0000 
COLOR  (II)  .KB. BLUE  =$0000 
CASE  ('GREEN  ') 

OOLOR(II)  .RtB.BED  =$0000 
OOLC»  (II)  .RGB. GREEN  =  $FFFF 
OOLOR(II)  .RIB.BUE  =$0000 
CASE  ('BLUE  ') 

OOLOR(II)  .BIB.BEB  =  $0(XX) 

OOLOR(II)  .BCB.CBEEN  =  $0000 
OOLORdD.BGB.BLUE  =  $FFFF 
CASE  ('CYAN  ■) 

OOLORdI)  .KB.RED  =$0000 
COLOR (II)  .RGB. (BEEN  =  $FFFF 
OOLORdD.BGB.BLUE  =  $FFFF 
CASE  CMAIBNTA  ') 

OOLORdI)  .BIB. BED  =  $FFTF 
OOLOR(II)  .RGB. (BEEN  =  $0000 
CDLORdl)  .KB. BLUE  =  $FFFF 
CASE  ('YELLOW  ') 

OOLORdI)  .KB.RED  =$FTTF 
OOLORdI). KB. ®EEN  =  $ETFF 
OOLORdI)  .RGB. BLUE  =  $0000 
CASE  CCBANGE  ') 

OOLORdI)  .RGB. RED  -  $FFFF 
OOimdl)  .RGB. GREEN  =  $6000 
OOLORdD.BGB.BLUE  =$0000 
CASE  CPUBPIS  •) 

OOLORdI)  .KB.RED  =  $80E8 
OOLORdI)  .RGB. BEEN  =  $0000 
OOLORdI)  .KB. BLUE  =  $FFFF 
CASE  CLTBLUE  ’) 

OOLORdI)  .BGB.BED  =  $0000 
OOLBdD  .RGB. GREEN  =  $9040 
OOLORdI)  .B£B. BLUE  =  $FFFF 
CASE  CLTCBEEN  ') 

CXOLOR (ID  .KB.RED  =$8680 
OOLBdD. KB. GREEN  =  $mT 
OOLORdI)  .KB. BLUE  =  $0000 
CASE  DEFAULT 

TYPE  *,  'NOT  A  VALID  COLOUR' 

END  SEIBCT 
GO  TO  339 
340  CXWnNUE 
336  CONTINUE 

The  sections  of  code  where  the  pen  colour  was  actually  changed  with  calls  to 
KBForaCtoior  are  Set  out  in  Table  4. 


I' 

I'- 
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TABLE  4 

Sections  of  Code  Where  Pen  Colour  is  Changed 


Section 

Subroutine 

Repeat  Line  Key 

REP  command  section  of 
TRAN2 

Plot 

STRIP 

Overlay  Line  Key 

GRID 

7 .  PICT  FILES 

PICT  files  are  the  standard  Macintosh  files  for  transferring  graphical  data  between 
programs.  The  PICT  file  format  (see  page  85,  Vol  5,  Ref.  6)  consists  of  a  512  byte  header 
followed  by  opcodes  which  contain  QuickElraw  picture  information. 

PKTT  files  were  used  to  store  the  plots  generated  by  MacTRANS  because  they  can  be 
read  by  most  commercial  graphics  software,  thus  removing  the  need  for  a  graphics  editor 
within  MacTRANS. 

In  MacTRANS,  two  separate  subroutines  were  written  for  saving  pictures  to 
(Subroutine  PICSAVE),  and  retrieving  pictures  from  (Subroutine  LOADPIC),  PICT  files. 
The  procedures  for  these  subroutines  are  shown  below. 

7.1  Procedure  Used  to  Save  a  Picture  in  a  PICT  File 

a)  Get  the  current  volume  number 

OSERR  =  GETVDL(NIL,%REF(VREFt«M)) 

b)  Create  a  new  file 

OSERR  =  CREATE  (FII£N!WE,VRE™M,atEATOR,FILET«>E) 

c)  Open  the  new  file 

OSERR  =  FSC»EN(FIIZNAME,VREFNUM,%REF(FIIZNO)) 

d)  Set  the  file  marker  to  the  start  of  the  file 

OSERR  =  SETFPOS  (FIIENO,  FSFRCMSTART,  INT4  (0) ) 

e)  Write  128  integer*4  zeros  to  the  512  byte  header  —  the  header  was  not  used  to  store 
any  information 

DO  I  =  1,128 
COUNT  =  4 

OSERR  =  FSWRITE(FII£NO,%REF(OOONr),%LOC(ZERO)) 

EKD  DO 

f)  Get  the  size  (in  bytes)  of  the  picture  in  memory 

OOUMT  =  GETHANDIESIZE  (PICTURE) 

g)  Dump  this  number  of  bytes  starting  from  the  address  of  the  picture  into  the  PICT  file 

OSERR  -  FSWRITE(FII£NO,%REF((OOUWr), PICTURE. PICH^.PICP) 

h)  Close  the  file 

OSERR  -  FSCDaSE(FIIiWD) 


I 
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i)  Flush  the  volume  buffer 

OSEBR  =  FUISHVDL(NIL,VREmM) 

7.2  Procedure  Used  to  Retrieve  a  Picture  from  a  PICT  File 

a)  Call  the  Macintosh  Toolbox  standard  “Get  File”  dialog  box 

CALL  SFGETFII£(WHE3iE, NIL, NIL, NlMrVPES,TVPELIST,NIL,%REF (REPLY)) 

b)  If  the  dialog  box  succeeds  in  selecting  a  PICT  file,  set  the  volume  to  that  where  the  file 
is  located 

IF  (REPLY. GOOD)  THEN 
mflBME  =  REPLY. FNAME 
OSERR  =  SETVDL(NIL,REPLY.VREFNIM) 

END  IF 

c)  Open  the  file 

OSERR  =  FSOPEN(REPLY.Ftffl(C,REPLY.VREFNtM,  %REF(FILEND)) 

d)  Get  the  size  of  the  file 

OSERR  =  GETB0F(FILEM3,%REF  (COUNT)) 

e)  Subtract  512  bytes  from  the  size  of  the  file 

COUNT  =  COUNT  -  512 

f)  Create  a  new  handle  for  the  picture 

PICTORE.PICH  =  NEWHANDI£  (COUNT) 

g)  Lock  the  picture  handle 

CALL  HLOCK  (PICTURE) 

h)  Set  the  file  marker  to  the  stait  of  the  picture  information 

OSERR  =  SETFPOS  (FnfNO,FSFRCWSTART,  INT4  (512) ) 

i)  Read  the  picture  information  into  memory 

OSERR  =  FSREAD(FILENO,%REF(COW»r), PICTURE. Pra'.PICP) 

j)  Unlock  the  picture  handle 

CALL  HUNLOCK  (PICTURE) 

k)  Close  the  file 

OSERR  =  FSaOSE(FIIfllO) 

l)  Flush  the  volume  buffer 

OSERR  =  FLUSHVDL  (NIL,  REPLY.  VREFNIM) 

8 .  EVENT-LOOP 

In  a  Macintosh  application,  an  event-loop  examines  the  events  that  occur  while  a 
program  is  executing,  e.g.  mouse  buaon  “clicks”  and  menu  item  selection,  and  calls  the 
relevant  subroutines  to  provide  the  appropriate  actions. 

In  this  conversion,  full  use  of  the  Macintosh  operating  system  through  the  event-loop 
was  not  made,  as  this  would  have  needed  a  considerable  amount  of  code  rewriting. 
Instead,  a  limited  event-loop  with  the  features  of  moving  windows,  opening  and  closing 
PICT  files,  and  printing  was  added  to  the  end  of  the  program  so  that  it  is  only  entered  just 
before  the  execution  of  TRANS  would  normally  finish. 
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This  means  that  MacTRANS  operates  in  almost  exactly  the  same  fashion  as  TRANS 
does,  but  at  the  end  of  the  program,  allows  all  the  graphics  windows  produced  during  that 
run  to  be  viewed  on  the  screen  at  the  same  time,  moved  around,  printed,  etc.  Plots  created 
from  previous  runs  can  also  be  opened  in  the  event  loop,  and  for  the  cases  when  it  is 
desired  to  use  MacTRANS  solely  to  view  existing  plots,  a  switch  was  added  to  the  start  of 
MacTRANS  to  enable  the  program  to  skip  straight  to  the  event-loop,  by-passing  the 
plotting  prompts. 

The  Language  Systems  Fortran  compiler  also  automatically  adds  a  very  limited  sort  of 
event-loop  around  the  entire  program.  This  provides  an  output  window  for  the  program 
input/output  and,  after  the  program  finishes,  provides  menus  which  allow  the  user  to  first 
edit  and  print  the  text  in  the  output  window,  and  then  rerun  the  program.  This  event-loop 
is  not  discussed  here.  For  further  information  see  Ref.  4. 

The  event-loop  is  handled  by  five  subroutines;  Loop,  EventHandler,  Do_Menu,  SetUp, 
and  Open_Win.  These  subroutines  are  based  on  code  used  in  the  example  program 
“EventLoop”  supplied  with  Language  Systems  Fortran.  Loop  contains  the  main  loop 
which  detects  the  events  as  they  happen.  EventHandler  is  called  from  Loop  whenever  an 
event  is  detected.  It  determines  what  type  of  event  it  is,  and  calls  Do_Menu  or  Open_Win 
and/or  Macintosh  Toolbox  procedures  to  perform  the  required  actions.  Do_Menu 
determines  which  menu  item  was  seleaed  and  does,  or  calls  other  subroutines  which  do, 
all  the  actions  required  by  the  menu  selections.  Similarly,  Open_Win  does,  or  calls  other 
subroutines  which  do,  all  the  actions  required  by  window  events.  It  has  several  entry 
points  to  it  which  in  essence  makes  it  a  composite  of  several  subroutines,  each  dealing  with 
a  different  window  action  (see  Section  8.5).  SetUp  is  the  subroutine  that  creates  all  the 
menus  for  the  event-loop. 

Three  menus  are  used  in  MacTRANS;  an  Apple  menu  for  the  About  MacTRANS  dialog 
box,  and  access  to  the  desk  accessories;  a  File  menu  for  opening,  closing,  and  printing  the 
PICT  files  and  associated  graphics  windows,  and  for  quitting  the  program;  and  a  Window 
menu  for  selecting  the  graphics  windows,  i.e.  bringing  them  to  the  front.  The  Apple  and 
File  menus  are  defined  in  the  resource  fork  of  MacTRANS,  along  with  the  icons  for 
MacTRANS  and  the  PICT  files,  and  the  dialog  box  brought  up  when  the  About 
MacTRANS  item  is  selected  from  the  Apple  menu.  For  details  on  how  the  resource  fork  of 
MacTRANS  was  added,  see  Section  10. 

The  variables  dealing  with  the  graphics  windows  are  passed  into  the  event-loop  pan  of 
the  program  via  common  blocks.  Specifically,  these  blocks  are: 

REXXIBD  /RBCT/  WMXWRECT.HIBESRECT 
OCMON  /BECTS/WnCOWRECT.HIBESBBCT 
REXXro  /CWINDOWPTR/  WPTR(20) 

INTEX2R*4  WmwjM 
CXMCN  /WINS/  WPTR,WINNUM 
REXDRD  /PICHfiNDI£/  PIC  (20) 

OCMCN  /PICmjFES/  PIC 

WindowRect  and  HiResRect  are  the  rectangles  bounding  the  graphics  windows  and  picture 
frames  respectively.  These  are  used  when  PICT  files  are  open^  and  displayed.  Pointers 
to  the  graphics  windows  are  in  the  array  WPTR,  and  handles  to  the  pictures  in  the  array 
PIC  (PIC(l)  corresponds  to  WPTR(l),  etc.).  Winnum  is  an  integer  equal  to  the  number  of 
graphics  windows. 

A  brief  description  of  the  code  used  in  the  event-loop  subroutines  to  perform  the  actitms 
required  follows. 
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8.1 

a) 

b) 

c) 


d) 


e) 


8.2 

a) 


b) 


c) 


8.3 


a) 


Subroutine  Loop 
Calls  Setup  to  create  menus 

CHli  SETUP 

Frees  the  memory  used  by  SetUp 

CALL  UNIi3ADSBG(%IiX(SETUr' 

Sets  the  event  mask  and  flags  which  indicate  if  Quit  or  Exit  have  been  selected 

EVENT_MASK  =  SFFFF  !ALL  EVQtTS 

tX»E  =  .FALSE.  !EXIT  TO  OUTPUT  WIN..  J  FIAG 

FINDER  =  .FAISE.  !C!UIT  TO  FINDER  FIAS 

Enters  the  event-loop 

DO  WHnZ  (DONE  =  .FAISE.) 

ANJEVBNT  -  OJnEXTEVENT  (EVEin’_MASK,  %REF  (THEEVENT) ) 

IF  (AN_EVENT)  CALL  EVEjnT»NDI£R  (THEEVQJT,  DONE,  FINDER) 

END  DO 

After  leaving  the  event-loop,  quits  the  Language  System  Fortran  event-loop  if  Quit 
was  selected 

IF  (FINDER)  CALL  DCMENUC FILE', ’QUIT’) 


Subroutine  SetUp 

Get  the  Apple  and  File  menus  from  the  resource  fork  of  MacTR.ANS,  add  the  desk 
accessories  to  the  Apple  menu,  and  create  the  Window  menu 

APPIfMMU.MENUH  =  OiMMUtAPPIEID) 

CALL  INSERIMENU  (APPUMW,  ZERO) 

CALL  ADDRESMEWU  (APPIAMENU,  ’DRWR’) 

FIliMENU.MEWUH  =  GETMENO(FII£ID) 

CALL  INSERIMENU  (FIUMENU,  ZERO) 

WItMENU.MENUH  =  NESMEMU  (WDWENID.WItWEWTIT) 

CALL  INSERIMENU  (WItWENU,  ZERO) 

If  no  graphics  windows  are  open,  then  disable  the  relevant  menu  items;  if  there  are 
graphics  windows  open,  then  add  their  titles  to  the  Window  menu 


IF  (WINNUM  .BQ.  0)  THEN  !IF  THERE 
CALL  DISABI£IITW(FnaEW0,INT2(2)) 
CALL  DISABIZITEM{FIIHEW,IMr2(4)) 
CALL  DISABI£ITEM{FIIfMENU,INr2(5)) 
CALL  DISAHIEITEM  (WDHENU,  INTZ  (0) ) 
CALL  HILITEMENU(ZERO) 

CALL  FUJSHEVENTStSFFFF.ZERO) 

Et£E  !IF  THERE  ARE  EXISTING  WIND 


ARE  NO  EXISTING  WINDOWS 
'CLOSE 
!  PRINT 
IPAO:  SETUP 
!WII1XH 

!THIS  UN-HILiatTS  ALL  MENUS 
ISTART  FRESH  ON  EVENTS 
MS  ADD  THEM  TO  THE  WINDOW  MENU 


DO  J  =  l.WINNDM 


CALL  GEIWTITTZtWTRtJ)  .WP.WDWENTIT) 
CALL  APPEMMliU(WII«ENU,WBMENTIT) 
E2CI  DO 
END  IF 


Send  the  output  window  behind  the  graphics  windows  and  draw  the  menu  bar 

CALL  SEHIBEHIND(OUTPUTWINDOW(),NIL) 

CALL  DRAtMENUBAR 


Subroutine  EventHandier 

Get  the  QuickDraw  global  variables  and  set  the  exit  flag  to  false 

QDG  -  JQDGLCBAISO 
DONE  -  .FAISE. 


17 


b)  Determine  the  type  of  the  event  and  perform,  or  call  the  appropriate  subroutine  to 
perform,  the  required  actions 

SELECT  C3CT  (THEEVENT.WHAT) 

CASE  (HXJSnXMi) 

WDJDOWPAKT  =  FLNDWNIXMtTHEEVEIJT. WHERE,  %REF(WINP)) 

■SETECT  CASE  (WnffiOWPAKT) 

CASE  (nmENUBAR)  IMEUUBAR 

CALL  DO_MEWt;(ME3«ISEtECT(THEEVDrr.WHERE),IXJE,FINDER) 

CASE  (DElfSWnmOM)  !IN  SYS  WLMXM 

CALL  SYSTEMCLICKtTHEEVtOT.WINP) 

CASE  (INOONTIIIT)  ’OCNTENT  REGION 

IF  (WntP.WP  .KE.  FRONTWDJDOW)  CALL  SELECTWMXWtWINP.KP) 

WREC  =  WINP.WP 

IF  ((WBBC''.WINDaWKIND  .NE.  OSERfOND)  .OR. 

1  (WINP.WP  .EQ.  OtlTPUTOINDOWO))  THQJ 

CALL  DISABI£ITEM(FIIfMENU,lNr2(4))  iPRBIT 

CALL  DISAHI£ITEM(FILE>!ENU,INT2(5))  '.PPJX  SETUP 

ELSE 

CALL  ENAHLEITEM(FIIEMENU,INT2(4))  IPRINT 

CALL  ElfflBI£ITEW(FIIflffiNU,INT2(5))  ’PAtSE  SETUP 

END  IF 

CALL  DRAWENUBAR 

CASE  (INDRAG)  (DRAG  REGION 

IF  (WINP.WP  .NE.  OUTPUTWINDOWO)  THEN 

IF  (WINP.WP  .NE.  FBCNTWDDOW)  CALL  SELECTWINDOW (WINP.WP) 

UHTTRECT  =  QDG^.SCREENBITS.  BOUNDS 
CALL  DRAGWINDOW(WINP,THEEVEIJT.WHERE,LIMITRECT) 
e®  IF 

CASE  (IH3tO«)  ISIZE  REGION 

CASE  (INGQAWAY)  ICLOSE  BOX 

IF  (WINP.WP  .NE.  OUTPUrolNDOWO )  THEN 
CU3SEIT  =  TRACKGQAWAY(WINP,THEEVENT. WHERE) 

IF  (CIOSEIT)  CALL  (3iOSE_WIN(WINP) 

END  IF 
CASE  DEFAULT 

!  NO  OTHER  WINDOW  PARTS  TO  DEAL  WITH. 

END  SELECT  '.END  OF  MOUSEDOWt  EVENT. 

CASE  (MOUSEUP)  'MOUSE  UP 

'.THIS  PROGRAM  DOES  NOTHING  IN  RESPONSE  TO  THIS  EVENT. 

CASE  (  KEYDOWN)  !KEY  PRESS 

CHCODE  =  JIAND(THEEVENT.MESSA£2;,C3tARC0DEMASK) 

CM  =  CHAR  (CHCODE) 

CHCODE  =  JIAt®(THEEVENT.M3DIFIEBS,CM)KEY) 

IF  (CHOCra  .NE.  0)  CALL  DO_MENU(LENUKEY(CH), DONE, FINDER) 

CASE  (KEYUP) 

(THIS  PR3(3iAM  DOES  NOTHING  IN  RESPONSE  TO  THIS  EVENT. 

CAS:  (AOTCKEY) 

(THIS  PEYJOtAM  DOES  NOTHING  IN  RESPONSE  TO  THIS  EVENT. 

CASE  (UPDATEEVT) 

C3)LL  BEDRAW_WIN(THEEVENT.MESSACZ) 

CASE  (DISKEVT) 

(THIS  PROGRAM  DOES  NOTHING  IN  RESPONSE  TO  THIS  EVENT. 

CASE  (ACnVMIEVT) 

CALL  SETPOKT(THEEVENT.MESSA(2:) 

CASE  DEFAULT 
El®  SELECT 

8.4  Subroutine  Do_Menu 

a)  Determine  the  menu  and  menu  item  from  the  first  aigument  in  the  call  to  Do_Menu 

PORTTEWP  -  32767 
IF  (MEWOCHOICE  >  0)  THEN 
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ITHM  =  JI«E(MEMUaKlICE,PCKnEMP)  tEXTBACT  THE  MENU  S  ITEM  NtMBEKS 
MEMU  =  JISHET(MEJmK>ICE,-16) 

b)  Perform  the  appropriate  aaions  based  on  the  menu  and  menu  item 

IF  (MEMO  =  1)  THEM  'APPLE  MEMO 

IF  (ITEM  =  1)  THEN  (ABOUT  EVENTLOC® 

C  SINCE  DPTR  IS  NEVER  GOING  TO  HE  DEBEFEBEN(3Il,  IT  CAN 

C  JUST  BE  AN  INTBaEK*4 

DPTR  =  (arrNEMDIAIOG(IiJT2 (13748), INT4(0),-1)  '.DIAIiOG  RES  ID  =  13748 
IF  (DPTR  .NE.  0)  THEN 
CALL  (3m)RT(%BEF(PORrrEMP)) 

CALL  SETPORT(DPTR) 

CALL  DRAM)IALOG(I»TO) 

DO  mn£  (.NOT.  BUTTCN) 

END  DO 

CALL  DISPOSDIALOG(DPTR) 

CALL  SETPCXtKPCRTTENP) 

END  IF 

ELSE  (ITEM  IS  A  DESK  AOCESSORY 

CALL  (arriTEM  (APPLEMEERJ,  item,  %REF  (ITEMSTRING) ) 

CALL  CEmXr{%REFtCiUXCKr)) 

TEMP  =  OPENDESKACC(ITENSTRING) 

CALL  SETPOBT  (OLDPCKT) 

END  IF 

F7.SF.  IF  (MENU  =  2)  THEN  (FILE  MENU 

IF  (ITEM  =  1)  THEN  (OPEN 

CALL  OPENJON 

ELSE  IF  (ITTM  =  2)  THEN  (CLOSE 

WINP.WP  =  EHaJTWINDOW() 

CALL  CLOSE_WIN(SCNP) 

ELSE  IF  (ITEM  =  4)  THEN  (PRINT 

WINP.WP  =  FBONTWINDOWO 
WNUM  =  GJETWREEXXN  (WINP.WP) 

CALL  PRINTPIC  (PIC  (WNU4) ,  HPRINT) 

ELSE  IF  (ITEM  «  5)  THEN  (PAGE  SEOTP 

CALL  PAGESETOP(HPRIMr)  (MODIFY  PRINr  BB(X»D 

ELSE  IF  (ITEM  =  7)  THEN  (EXIT  TO  OUTPUT  WINDOW 

DONE  =  .TRUE. 

WINP.WP  =  FRCKTWINDOWO 
CALL  CIiOSE_ALL_WIN 

EISE  IF  (ITEM  =  8)  THEN  (QUIT  TO  FINDER 

DONE  =  .TRUE. 

FINDER  =  .TRUE. 

CALL  CLOSE_ALL_WIN 
END  IF 

Et.SF.  IF  (MENU  =  WIMSNID)  THEN  (WINDOW  MENU 
CALL  SEUXnWINDOW(WPTR(ITEM)  .WP) 

END  IF 
END  IF 

c)  Turn  off  the  menu  bar  highlighting 

CALL  HILITEMENO(INT2(0)) 

8.5  Subroutine  Open_Win 

Subroutine  Open_Win  has  several  entry  points  which  are  dealt  with  separately  below. 
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CALL  OPEN_WIN 

a)  Set  the  true  and  false  variables  and  increment  the  window  number 

FI£  =  .FAtrSE. 

TRU  =  .TRUE. 

WDJNtM  =  WMCM  +  1 

b)  Check  if  too  many  windows  will  be  open 

IF  (WINNUM  >  20)  THEM 

CALL  AI£RTBQX('YCU  HAVE  EXCEEDED  THE  MAXMM  NtWBER  OF  VffiffiOWS  ') 

WINNUM  =  10 
GO  TO  10  IRETURN 
EMD  IF 

c)  Load  the  new  picture  from  the  PICT  file 

CALL  LQADPIC(PIC{WINNUM),WIWriTt£,ERR) 

d)  Append  the  window  title  to  the  “Window”  menu 

CALL  APPEM*«lJU(WIt«EMU,WINTITLE) 

e)  Calculate  the  window  size 

QDG  =  JQDGLOBALSO 
WINDOWRECT  =  0OG''.9CREENBITS.  BOUNDS 
C  CAICULATE  ASPECT  RATIOS  OF  PICTORE  FRAME  AND  SCREEN 

RATIO  =  FLOAT  (PIC  (VTOJNtM)  .PICH^.PICP'.PICFRAME.Rian'  - 

1  PIC  (WINNUM)  .  PICH- .  PICP^ .  PICFRAME .  LEFT ) 

2  /  FIjOAT(PIC(WINNtM)  .PICH'.PICP''. PICFRAME. BCrTTLM  - 

3  PIC(WINN(«).PICH'.PICP''.PICFRAEE.TCP) 

SRATIO  =  ETX)AT(WINDOWRE)Cr. RIGHT  -  WINDOWRECT. LEFT  -  8)  / 

1  FLOAT  (WINDOWRECT. BOTTCM  -  WINDOWRECT. TOP  -  44) 

C  IF  FRAME  RATIO  >  SCREEN  RATIO  THEM  MAKE  WINDOW  SHALLOWER  THAN  S(3iEEM  AND 
C  OFFSET  DOWN  OTHERWISE  MAKE  WINDOW  NARROWER  THAN  SCREEN  AND  SET  OFFSETT  TC 
C  THE  RIGHT 

IF  (RATIO  .CT.  SRATIO)  THEN 
WINDCWBECT.TOP  >=  WINDOWRECT. TOP  +  40 
WINDOWRECT.  LEFT  =  WINDOWRECT.  lEFT  +  4 
WINDOWRECT. RIGHT  =  WINDOWRECT. RICatT  -  4 

WINDCWRECT. BOTTCM  =  INIWr (FLOAT (WINDOWRECT. RIGHT  -  WINDOWRECT. LEFT)  / 

1  RATIO)  +  WINDOWRECT.  TOP 

HCSTSET  =  0 
VCSTSET  =  20 
ELSE 

WINDOWRECT. TCP  =  WtNDOWRECT.TCP  +  40 
WINDCWRECT.IflT  =  WINDOWRECT .  I£FT  +  4 
WtNDCWRECT. BOTTOM  =  WINDOWRECT. BOTTCM  -  4 

WINDOWRECT. Riarr  =  INIOT (FLOAT (WINDOWRECT. BOTTOM  -  WINDOWRECT. TOP)  * 

1  RATIO)  +  WINDOWRECT.  liTT 

HOFFSET  =  20 
VDFFSET  =  0 
END  IF 

f)  Open  the  new  window 

WPTR(Wn»)UM)  .WP  =  NE>IWrNDOW(NIL,WINDOWRECT,WINriTTZ,FLS,NOGK>COCPRDC, 

1  INFRCNT,TRU,WINNIM) 

g)  If  ^e  new  window  was  opened,  calculate  the  offset,  move  the  window,  make  it 
visible,  make  it  the  current  window,  and  enable  the  relevant  menu  items;  otherwise, 
send  an  error  message  and  decrement  the  number  of  windows. 

IF  (HPTRtWHMJM)  .WP  .NE.  NIL)  THEM 
HGLOB  -  (WnWCM  -  1) ‘HOFFSET  +  WIIOOWRECT.IZFT 
waCB  -  (WntHJM  -  l)»TOFrSET  +  WMXWRBCT.TOP 
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CALL  KMMniXM(M>TR(WDJM1)  .WP,  HOjOB.VGLCB,  FLS) 

C  THE  WINDOW  WAS  INITIALLY  INVISIBLE  SO  IT  OOUIC  BE  MOVED  BEFORE  BEING  SHOWN 
CALL  SHOWWINDOW(WE>TR(WINNl>I)  .WP) 

CALL  SETPORT(WPTR(WINNCM)  .WP) 

IF  (WINNtM  =  1)  THIN  !  IF  THIS  IS  THE  FIRST  WINDOW  ENABLE  THE  MENU? 
CALL  n®BL£nTN(FIIf>!ElJO,INT2(2))  !CLOSE 

CALL  ENAHLEITEM(FIlfWENU,INT2(4))  IPRINT 

CALL  ENABIErnmniEMENU,  INT2  (5) )  IPAGE  SETUP 

CALL  n«BIZITQl(WnWBgU,INT2(0))  IWINDOW 

END  IF 

CALL  DRAW4INUBAR 
Er.<^ 

CALL  ALERTBQXCTHE  WINDOW  COULD  NOT  BE  COINED. ') 

WINNUM  =  WINNIM  -  1 
END  IF 

CALL  CLOSE_ffZN  (CLHZN) 

a)  If  the  window  selected  is  the  output  window,  do  nothing 

IF  (CLWIN.WP  .BQ.  OtJTPUTWINDCWO)  RETURN 

b)  If  the  window  selected  was  created  by  the  program 

IF  (CLPEEK'.WINDOWKIND  =  USEREIND)  THEt 

then  do  (c),  (d),  (e),  and  (0;  otherwise,  do  (g) 

c)  Move  to  the  selected  window,  hide  it,  dispose  cf  it,  and  release  the  memory  used  by 
the  picture  associated  with  it 

CALL  SETPORKOKtN.WP) 

WNtM  =  GETWBEFCON (CLWIN.WP)  !FIND  OUT  WHICH  WIW^  # 

CALL  HIDEWINDOW (CLWIN.WP) 

CALL  DISPOSEWIMXW (CLWIN.WP) 

Cf.lL  KILtflCIUBE  (PIC  (MAW) ) 

d)  If  it  is  the  last  window,  go  to  (e);  otherwise,  renumber  the  windows  and  pictures  to  fill 
the  space 

IF  (WWW  «  WINNtW)  GO  TO  6  !IF  IT’S  THE  TAST  WINDOJ 
C  OTHERWISE  MOVE  THE  HIGHER  WINDOWS  DOWN  TO  FILL  IriE  SPACE 

DO  5  J=«N(W,  (WINNtW-l) 

WPTP(J)  .WP  =  WTRtJ+l)  .WP 
PIC(J)  =  PIC(J+1) 

CALL  SEIWBEPaaJ(WPTR(J)  .WP,  J) 

CALL  GEIWrlTIf  (M>TR(J+1),IBEF(WINTITLE)) 

CALL  SETWriTLE(WPTR(J)  .WP.WINTITLE) 

CALL  SEt£CTWIt®OW(WPTR  (WINNtW)  .WP) 

5  OOtJTINUE 

e)  Decrement  the  number  of  windows 

6  wnwtw  -  WINNtW  -  1 

f)  If  no  windows  are  open,  then  disable  the  relevant  menu  items;  otherwise,  remake  the 
“Window”  nric  j 

IF  (WDWW  -  0)  THEN  !IF  NO  WINDOWS  OPEN  DISABLE  MENUS 

CALL  DISABIEITEW  (FIIfMENU,  IWr2  (2 ) )  !  diDSE 

CALL  DISABLEITEM(FIIiWENU,DnV(4))  .' PRINT  VEKT 

CALX  DISABI£ITEW(FXLa«NU,INT2(S))  (PEONI  HORIZ 

CALL  DELETEECNU  (WIEMNID) 

CALX  DISPOSE>«NU(WI»ENU) 

WntCNU.EENUN  -  NElWENUtW’THNID.WIttCNTIT) 

CAIX  INSER3EeNU(WIIt«NU,INT2(0)) 

CALX  DISABL£rTEW(WINCNU,INT2(0))  (TURN  OFF  WINDOW  Efi«) 
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CALL  DRASWEIWBAR 

ELSE  iBBOONFIGUBE  WINDOW  MENU 

CALL  DELETEMENU(WBWENID) 

CALL  DISPOSEMUU  (HDWENU) 

WTNMFUU.MENUH  =  NEJ#ffiNU(WII»ENlD,WI»4ENTIT) 

DO  J=l,WINmM 

CALL  ®IWn'n£(WPTR{J)  .WP.WnJTITLE) 

CALL  APPHlCMElJU(WIIWElW,WINnTLE) 

END  DO 

CALL  INSEFOMENU  (WnHEMU,  INK  (0) ) 

CALL  DBAWENUBAR 

CALL  SETPORI  (FPONTOINDCW) 

END  IF 

g)  If  the  window  selected  w*ts  not  created  by  the  program,  send  it  behind  the  other 
windows 

ELSE 

CALL  SE3®BEHIl®{CIJffrN,NlLl 
END  IF 

CALL  CLOSE_ALL_WIN 

a)  Close  all  the  graphics  windows 

DO  15  j  =  :,wiNNuw 

CALL  SETPOKKWPTRW)  .WP) 

CALL  HIDEWINDCW(WPTR(J)  .HP) 

CALL  DISPOSEWINDOW(WPTR(J)  .WP) 

15  CCNTINUE 

b)  Set  the  number  of  windows  to  zero 

WINNtW  =  0 

c)  Disable  the  relevant  menu  items 

CALL  DISABl£ITEW(FILaCNU,INK(2))  lOOSE 

CALL  DISABl£ITEM(FILt>ENU,INK(4))  'PRINT 

CALL  DISABI£ITEW(FI1£MENU,INK(5))  IPAGE  SETUP 

CALL  DRA»1ENUBAR 

CALL  REDRAffJHIN  (CLWIN) 

a)  Get  the  current  window 

CALL  GETPORT(%REF(OI£IPORT))  IRQWEER  CURRENT  PORT 

b)  Move  to  the  window  to  be  redrawn 

CALL  SETPCSITtaKEN) 

c)  Erase  and  redraw  the  window 

CALL  BEGINUPDATE  (OWIN) 

IF  (CLWIN.WP  .NE.  OUTPUTWINDOWO)  THEN 
TEWPRECT  =  CLWIN.WP''.PCKrRECT 
CAIi  ERASERBCT  (TEMPREiCT) 

VWJM  -  GETViBEPOON(CI«IN)  lan'  THE  PICTURE  NUMBER 

CALL  DBA«PICTUPE(PIC(WNUM),TEMPBECr)  ! REDRAW  THE  PICTURE 
EE^ 

CALL  F_DPA«OUTPWINDOW 
CALL  DRAWOONTROIS  (CLKIN) 

CALL  DRAtiCTiCKtCCNiCUtIN) 

END  IF 

CALL  ENCWPOATEtCUrai) 
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d)  Move  back  to  the  original  window 

CALL  SETPORT  (OLDPOfO') 

9 .  PRINTING  ON  THE  APPLE  LASERWRITER 

In  this  conversion,  the  usual  printing  procedures  were  adopted,  i.e.  the  selection  of 
Page  Setup  and/or  Print  from  the  File  menu.  These  menu  items  ate  handled  by  three 
subroutines;  PrintPic,  PageSetUp,  and  CheckPrintHandle. 

CheckPrintHandle  is  called  by  both  PageSetUp  and  PrintPic  to  check  that  the  print 
record  (hprint)  passed  to  the  subroutines  is  valid.  If  it  is  not,  a  new  print  record  is  created 
and  the  default  print  settings  from  the  printer  resource  file  are  assigned  to  it. 

PageSetUp  allows  the  default  print  setting  to  be  changed  by  calling  the  standard  page 
set-up  dialog  box. 

PrintPic  prints  the  picture  with  the  print  record  settings  passed  to  it.  It  sets  the 
LaserWriter  resolution  to  300  dpi,  adjusts  the  print  rectangle  to  the  same  size  as  the  picture 
frame,  positions  the  print  reaangle  to  allow  for  adequate  margins  on  the  page  (which 
depend  on  whether  the  page  is  printed  vertically  or  horizontally),  and  calls  the  standard 
print  dialog  box  to  set  the  number  of  copies,  pages,  etc. 

A  brief  description  of  the  code  used  in  the  printing  subroutines  to  perform  these  actions 
follows. 

9.1  Subroutine  CheckPrintHandle 

If  the  print  record  is  non-existent,  create  a  new  one  and  assign  the  default  print  settings 
to  it;  otherwise,  check  the  record  to  ensure  it  is  correct 

IF  (HPRIWr.TH  .BQ.  NIL)  THEN  !IF  HPRINT  NCN-ESaSTEOT 

HPRINr.TH  =  NEMHANDI£(INr4(120))  ! CREATE  A  NEW  HANDLE  FCR  HPRIOT 
CALL  PRINTOEFAULT(HPRINr)  !SET  THE  DEFAULT  VALUES  FOR  THE  PRINTER 

ELSE  IVALIDATE  EXISTINS  PRINT  RECORD 

IF  (PKVALmATE  (HPRINT) )  THEN  !13ECK  RECORD  AND  ADJUST  IF  NKESSARY 
E[£E  !ND  ADJUSTMENT  NECESSARY 

END  IF 
END  IF 

9.2  Subroutine  PageSetUp 

a)  Open  the  print  manager 

CAIX  PROPEN 

b)  Check  the  print  handle 

CALL  CHBCKPRINTHANDIE  (HPRINT) 

c)  Call  the  standard  page  set-up  dialog  box 

IF  (PRSTTDIAIOG (HPRINT))  THEN 
END  IF 

d)  Close  the  print  manager 

CALL  PRCLDSE 

9.3  Subroutine  PrintPic 

a)  As  for  PageSetUp 

b)  As  for  PageSetUp 
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c)  Set  the  LaserWriter  resolution  to  300  dots  per  inch 

SPRDAIR.ICeOODE  -  5 
SPRDiVTft.HPRINT  =  HPRINT 
SPRDftlA.IXRSL  ■=  300 
SPRDATft.ITOSL  =  300 
CALL  FR(31tERAL(%L3C(SPRDAXA)) 

d)  Set  the  print  rectangle  -  depending  on  the  orientation 

PRINTRBCT  =  HPRINT. TH^. TP*. PMNFO.RPAGE  !SET  PRINT  RBCT  TO  DEFAULT  PAGE 
C  CFFSET  PRINTRECT  TO  ALIiOW  FOR  MARGIN  -  DIFFERENT 

C  AtOJNT  PC»  VERTICAL  CR  HORIZONTAL  PRINTING 

IF  (HPRINT. TH*. TP*. PRINFO.RPAGE.Riarr  .GT. 

1  :tPRINT.™*.TP*.PRINFO.RPAa;.BC»nO«  THEN 
C  RECALCULATE  PRINTRECT  BOTTOM  AND  RIGHT  SO  THAT 

C  PRINTRECT  IS  SCAIfB  TO  ETT  HORIjOKTAL  FORMAT 

PRINTRECT. BOTTOM  =  PRINTRECT. BOTTOM  -  200 
PRINTREOT.  RIGHT  =  PEUNTRECT.IiTT  + 

1  INT(ELQAT(PICTt»E.PICH*.PICP*.PICFRAME. RIGHT  - 

2  PICrURE.PICH*.PICP*.PICFRAME.lEFT)  / 

3  FLOAT  (PICTURE.  PICK*.  PICP*.PICFRAME.  BOTTOM  - 

4  PI(Crt®E.PICH*.PICP*.PICFRAME.TCP)  * 

5  ETGftT  (PRINTRECT.  BOTTOM  -  PRINTRECT.  TCP) ) 

CALL  CFFSETRECT  (%REF  (PRINTRECT) ,  INT2  (0) ,  INT2  (200) )  IHORIZ  PRINT  CXTSET 

ELSE 

C  BE)CALCUIATE  PRINTRECT  BOTTOM  AM)  RI{3fT  SO  THAT 

C  PRINTRECT  IS  SAME  SIZE  AS  PICTURE  FRAME 

PRINTRECT, BOTTOM  =  PRINTRBCT. TOP  +  PICTURE. PICK* .PICP* .PICFRAME. BOTTOM  - 
1  PICTURE. PICH*.PICP*.PICFRAME. TCP 

PRINTRECT. RIGHT  =  PRINTRECT. lEFT  +  PICTURE. PICH* .PICP*. PICFRAME. RIGHT  - 
1  PICTURE. PICH*.PICP*.PICFRAME. LEFT 

CALL  CSTSETRECT  (%REF  (PRINTRECT) ,  DTO  (75) ,  INT2  (75) )  ! VERT  PRINT  C*TSET 

END  IF 


e)  Print  the  picture 


D'  (PRJOBDIALOG (HPRINT))  THEN  ICALLS  STANDARD  PRINT  DIALOG 

CALL  (Irn>0BT(%REF(01DP0RT))  ((ST  THE  CIO  PORT 

PRINTPOBT.TP  =  PRDPENDOC  (HPRINT, NIL, NIL)  (OPEN  THE  PRINTING  PCKT 
IF  (PREBROR  .EQ.  NOERR)  THEN  (IF  NO  ERROR 

Caii  SETPOKT(PRINIPOBT.TP)  (MAKE  PRINT  PORT  CURRENT  PCSTT 

IF  (HPRINT. TH*. TP*. PRJCB.BJDOaOOP  .EQ.  BTRAFTLOCP)  THEN 
NOOPIES  =  HPRINT. TH*. TP*. PRJOT.IOOPIES 
ELSE 

NCtSIES  =  1 
EM)  IF 

DO  100  COPIES  =>  1,NC0PIES 
CALL  PROPENPACS  (PRINTPORT .  TP,  NIL) 

CALL  t»AWPICTORE (PICTURE, PRINTRECT)  (DRAW  PICTURE  IN  PRINT  PORT 

(ALL  PBCLOSEPAQE(PRnrTPOBT.TP) 

CONTINUE  % 

END  IF 

CALL  PBaoSEDOC(PRINn>OBT.TP)  (OOSE  PRINTING  PORT 

IF  ( (HPRINT. TH*. TP*. PRJDB.BODOCLOC)P  .EQ.  BSPOQLLDQP)  .AM). 

1  (PRENROR  .EQ.  NOERR))  THEN 

CALL  PRPICFIIE  (HPRINT,  NIL,  NIL,  NIL,  IREF  (PRSTAT) )  ( SPOOL  DOOMNT 

END  IF 

IF  (PRERROR  .NE.  NOERR)  CALL  ALERTBQXCPrin^rror. ' ) 

CALL  SEnPOBT(OU)PORF)  (®UFN  TO  OLD  PORT 

EM)  IF 


f)  Close  the  print  manager 


(AIL  PROOGE 


(OOGE  PRINT  EANAGER 
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10.  RESOURCE  FORK  OF  MACTRANS 

The  resource  fork  of  MacTRANS  was  added  using  ResEdit  Version  2.0b2,  which 
displays  the  various  resources  in  their  full  graphical  form.  The  resources  were  first  saved 
into  a  file  named  “TRANS.rsrc”  and  then  this  file  was  copied  into  the  resource  fork  of 
MacTRANS  at  the  compilation  stage  (see  Appendix  E  of  Ref.  4). 

10.1  Icons 

The  following  steps  were  taken  to  add  the  icons  for  MacTRANS  and  the  PICT  files 
created  in  MacTRANS  (see  Figure  1). 


APPL  icon  PICT  icon 
Fig.  1  Application  and  PICT  file  icons 

a)  Create  New  Resource  was  selected  from  the  Resource  menu,  and  BNDL  was  selected 
from  the  list  brought  up  on  the  screen.  This  brought  up  two  more  windows,  one  of 
which  was  titled  BNDL  ID. 

b)  “TRAN”  was  typed  for  the  Signature  (the  Signature  being  the  same  as  the  Creator 
given  to  MacTRANS  when  it  was  complied)  and  Create  New  File  Type  was  selected 
from  the  Resource  menu  twice.  This  brought  up  two  sets  of  blank  icons. 

c)  Under  Type  in  the  BNDL  ID  window,  “APPL”  and  “PlCn”’  were  entered  for  the 
appropriate  icons. 

d)  The  blank  icons  were  double-clicked  to  bring  up  dialog  boxes  which  prompt  for  the 
icons  to  be  used.  In  both  cases  New  was  selected  to  bring  up  a  window  in  which  the 
icon  was  drawn,  and  these  icons  were  then  dragged  into  the  Mask  boxes  to  provide  the 
highlight  masks. 

10.2  Menus 

The  Apple  and  File  menus  (see  Figure  2)  were  created  with  the  following  steps. 


Fig.  2  Apple  and  File  Menus 
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a)  Create  New  Resource  was  selected  from  the  Resource  menu,  and  MENU  was  selected 
from  the  list  brought  up  on  the  screen.  This  brought  up  a  new  MENU  ID  window. 

b)  The  menu  items  (with  optional  command  key  equivalents)  and  separator  lines  were 
then  entered. 

10.3  Dialog  Box 

The  dialog  box  brought  up  when  the  About  MacTRANS  item  in  the  Apple  menu  is 
selected  (see  Figure  3)  was  created  using  the  following  steps. 


MacTRRNS  is  a  Macintosh 
uersion  of  the  program  TRRNS. 

Modified  by  0.  M.  Blunt. 
18/1/Cl 


Fig.  3  “About  MacTRANS”  Dialog  Box 


a)  Create  New  Resource  was  selected  from  the  Resource  menu,  and  DLOG  was  selected 
from  the  list  brought  up  on  the  screen.  This  brou^t  up  a  DLOG  ID  window  in  which 
the  size  and  position  of  the  dialog  box  was  set. 

b)  Create  New  Resource  was  selected  from  the  Resource  menu,  and  DITL  was  selected 
from  the  list  brought  up  on  the  screen.  This  brought  up  a  DITL  ID  window. 

c)  Create  New  Dialog  Item  was  selected  from  the  resource  menu. 

d)  The  text  for  the  dialog  box  was  then  typed  in  and  the  Static  Text  button  was  selected. 

1 1 .  HOW  TO  RUN  MACTRANS 

MacTRANS  is  launched  by  double  clicking  on  its  icon.  This  starts  the  program  and 
bring  up  the  output  window.  The  first  prompt  is; 

GO  STRAIGHT  TO  EVEMT  lOOP? 

Answer  No  (a  <CR>  defaults  to  No)  to  continue  on  with  the  normal  TRANS  commands, 
or  Yes  to  go  to  the  event-loop  pan  of  the  program  where  existing  PICT  files  can  be  opened 
and  printed. 

11.1  Data  File 

The  data  file  is  entered  in  the  normal  way.  Due  to  the  extra  extension  involved  with  the 
PICT  files,  however,  it  can  only  be  up  to  nine  characters  long  (excluding  the  .DAT 
extension).  Also  note  that  the  data  file  must  be  in  Macintosh  binary  format  (i.e.  created  on 
a  Macintosh  or  convened  to  Macintosh  binary  format),  which  is  different  to  the  binary 
format  on  the  Elxsi. 
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11.2  Commands 

The  existing  TRANS  commands  (see  Appendix  B)  have  not  been  altered  and  work 
exactly  the  same  as  before,  with  the  following  exceptions: 

i.  The  SPAce  command  no  longer  needs  to  be  called  to  remove  the  space  from  the  left 
hand  side  of  the  plot  as  this  is  now  the  default.  The  space  can  still  be  inserted  if 
required. 

ii.  The  prompt  for  graphics  output  to  the  screen  can  be  ignored  as  graphics  will  be  sent  to 
the  screen  no  matter  what  is  answered. 

iii.  When  graphics  are  sent  to  the  screen,  the  program  will  wait  for  a  mouse  click  to  allow 
the  user  to  inspect  the  result. 

iv.  The  Exit  command  transfers  control  of  the  program  to  the  event-loop,  where  the  plots 
can  be  printed,  rather  than  exiting  the  program. 

Note:  Graphics  output  seen  on  the  screen  is  reduced  in  size  to  fit  the  whole  plot  on  the 
screen.  Text  and  lines  may  therefore  look  somewhat  distorted.  Also,  if  graphics 
fail  to  appear  on  the  screen,  MacTRANS  may  have  run  out  of  memory.  This  can  be 
overcome  by  increasing  the  memory  allotted  to  MacTRANS  under  Muldfinder. 

1 1.3  Colour 

Each  individual  line-type,  of  which  there  are  eight,  is  assigned  its  own  colour  which 
can  be  changed  at  the  time  that  the  line-type  is  seleaed.  The  line  colours  can  be  changed  by 
answering  Yes  (a  <CR>  defaults  to  No)  to  the  prompt 

DO  YOU  WISH  TO  CHAME  THE  OOLOURS?  : 

and  entering  the  line  number,  a  comma,  and  the  new  colour  (spaces  are  ignored)  after  the 
prompt 

LINE  COIOUR 

eg- 

2,(EEE3S 

A  carriage  return  entered  by  itself  will  continue  execution  of  the  program  when  all  the 
changes  have  been  made. 

Note:  When  the  PLO  or  REP  commands  are  used  with  the  default  (0)  line-type 
specified,  the  first  block  will  be  plotted  with  line  type  I,  the  next  with  line-type  2, 
etc.  The  colours  of  these  lines  will  be  as  set  previously.  When  a  line  type  of  I  is 
speeffied,  all  the  blocks  will  be  plotted  with  solid  lines  but  with  the  colours  still 
incrementing  (as  ifO  had  been  speeffied).  Specifying  Une-types  greater  than  I  will 
plot  all  the  blocks  with  the  sane  line-type  and  colour. 

11.4  The  Event-loop 

The  Exit  command  moves  control  of  the  program  from  the  output  window  to  the 
event-loop.  This  brings  all  pictures  created  from  the  current  session  of  MacTRANS  to  the 
front  in  the  reverse  order  to  which  they  were  created,  i.e.  with  the  last  picture  on  top. 
These  pictures  can  be  manipulated  in  the  usual  Macintosh  fashion;  however,  they  cannot  be 
edited.  If  editing  is  necessary,  it  is  easily  accomplished  in  one  of  the  commercial  graphics 
programs  such  as  Canvas  or  MacDraw  n. 

Printing  a  picture  is  accomplished  by  selecting  the  window  in  which  it  is  displayed 
(bringing  it  to  the  front)  and  selecting  Print  from  the  File  menu.  This  will  print  the  picture 
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at  100%  real  size  with  the  default  vertical  (portrait)  page  set-up.  A  vertical  page  set-up  is 
only  suitable  for  plots  with  a  short  time  axis  and  no  legend,  i.e.  those  created  with  the  PLS 
command.  The  horizontal  (landscape)  page  set-up  is  more  suitable  for  plots  with  long  time 
axes,  or  plots  where  a  legend  is  printed,  Ixit  scales  the  plot  down  to  ^proximately  70% 
real  size  to  achieve  this.  Table  S  sets  out  the  maximum  axes  sizes  for  printing  on  an  A4 
sheet  of  paper  using  the  LaserWriter. 


TABLE  5 

Maximum  Plot  Sizes  in  Inches 


Command 

X 

Y 

PLS  (vertical) 

5 

8 

PLS  (horizontal) 

14 

8 

PLO  /  REP  (horizontal) 

11 

8 

Selecting  the  Quit  to  Finder  item  from  the  File  menu  will  quit  the  program  completely 
and  return  control  to  the  Finder.  The  Exit  to  Output  item  in  the  File  menu,  however, 
returns  control  of  the  program  back  to  the  output  window. 

The  output  window  has  its  own  set  of  pull  down  menus  (created  by  the  Language 
System  Fortran  compiler)  with  commands  that  will  save  or  print  the  contents  of  the 
window,  and  also  a  command  to  rerun  the  program. 

11.5  MacTRANS  Example 

The  following  example  uses  a  data  file  created  by  the  performance  estimation  program 
Polar2  estimating  the  performance  of  an  Iroquois  helicopter. 

[TRANS  version  date  12-FEB-91] 

GO  STRAIGHT  TO  EVENT  lOOP? 

I/P  ETtiltAME  =  POIAB2 
Pclar2 

Iroquois  Performance 

I/P  FII£  VECaecUD  cm  14^mN-91  AT  14:04:38 
INTEaJ  INT  =  O.OOOOE+00;  RtW  CPU  TDE  ==  0.93  SEC. 

TIME  FBCM  O.OOOOE+00  TO  l.OOOOE+02  IN  STEPS  OF  2.0000E+00 
*PL0 

IS  GRAPHICS  OUTPUT  TO  SCREEN  REX3UIREI3  : 

tPI£/0  Output,  for  this  run,  going  to  DSK:P0IAR2.PI2  1 

OVERIAJf  PIOTS  : 

HtltS 

1,2,3,4,34 


*  *‘Polar2’’  uses  velocity  as  the  independent  variahle,  thus  references  to  time  are  actually  references  to 
velocity  in  knots. 
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BUfS  TO  DETERMINE  Y  9CAI£ 
1 


TO  SPECm  MO.  CF  X  UNITS/INCM/  TYPE  0  FOR  X 

liNSTH  OF  AXES  IN  INCHES;  X,  Y  =  5, 5 
ARE  SYMBOI5  RBQRD  FOR  PUOTS  : 

LINE  KEY  (0  GIVES  MIADLT)  - 
THE  CURRENT  LINE  OOLOURS  APE: 


0  &  1 

2 

3 

4 

buck 

RED 

green 

ELEJE 

5 

6 

1 

8 

can 

MK3NTA 

YELLOW 

CHANGE 

AVAIIABI£  COLOURS  : 

BLACK,  RED,  ®EEN,  LTGREEN,  BLUE,  LTBLUE,  CYAN, 

MAGENTA,  PURPLE,  YEXLOW,  ORANGE. 

DO  YOU  WISH  TO  CHANa:  THE  OOLOURS?  : 

*QOE 

**  RUNNING  ** 

*Exr 

STOP 

Figure  4  shows  the  graphics  from  this  example  as  they  would  appear  on  the  screen,  and 
Figure  5  shows  the  graphics  as  they  would  appear  when  printed  on  the  LaserWriter  when  a 
horizontal  page  set-up  has  been  selected  (this  is  necessary  to  include  the  legend  which 
would  otherwise  be  clipped  off). 


Fig.  4  MacTRANS  Graphics  Window  for  the  Polar2  Example 


Polar2 

Iroquois  Performance 


Fig.  5  Graphics  Tor  the  Polar!  Example  as  Printed  on  the  LaserWriter 


11.6  Execution  Time  Comparison 

To  compare  the  execution  times  of  MacTRANS  with  TRANS,  the  same  data  file  was 
processed  identically  by  both  programs.  TRANS  was  run  on  the  Elxsi  at  four  different 
loading  levels,  for  which  the  number  of  time-sharing  users  provides  a  guide,  and 
MacTRANS  was  run  once  on  a  Macintosh  Ilfx. 

The  data  file  was  a  recording  of  34  channels,  two  of  which  were  sampled  at  40  Hz  and 
the  rest  a:  10  Hz,  for  a  duration  of  134.85  seconds.  The  processing  consisted  of  using  the 
PLS  command  to  plot  all  the  non-zero  channels,  a  total  of  29,  on  the  screen  in  four  separate 
plots,  three  with  eight  channels,  and  one  with  five  channels.  The  results  are  set  out  in 
Table  6. 

It  can  be  seen  that  the  Macintosh  Ilfx  was  faster  than  the  Elxsi  for  all  cases.  As  it  is 
normal  for  TRANS  to  be  run  on  the  Elxsi  when  there  are  at  least  21  time-sharing  users, 
MacTRANS  running  on  the  Macintosh  Ilfx  provides  significantly  improved  performance. 
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TABLE  6 

TRANS  and  MacTRANS  Execution  Time  Comparison 


Task 

TRANS 

(EIxsi) 

MacTRANS 
(Mac  Ilfx) 

Number  of  Time¬ 
sharing  Users 

Time 

(minrsec) 

Time 

(min:sec) 

Real  time  taken  for 

21 

0:25 

0:38 

initial  read  of  data 

29 

file 

31 

35 

Real  time  taken  for  a 

21 

3:30 

3:05 

PLS  plot  of  all 

29 

3:50 

variables 

31 

4:50 

(4  pages  of  plotsjf 

35 

8:00 

Total  real  time 

21 

3:55 

3:43 

29 

31 

5:15 

35 

Total  CPU  time 

21 

1:42 

n.a. 

29 

1:42 

31 

1:46 

35 

1:47 

TRANS  and  MacTRANS  pause  between  pages  so  that  the  user  can  view  the  results.  This  is  the  time 
taken  with  no  pauses. 


12.  CONCLUDING  REMARKS 

The  conversion  of  TRANS  to  MacTRANS  was  undertaken  using  a  strategy  which 
required  as  few  changes  as  were  necessary  to  make  the  program  operational  under  the 
Macintosh  environment.  While  this  was  successful,  MacTRANS  does  not  take  full 
advantage  of  all  the  Macintosh  operating  system  features,  and  therefore  there  is  scope  for 
improvement  in  this  area. 

The  first  step  in  implementing  these  improvements  would  be  to  make  the  event-loop 
encompass  the  entire  operation  of  the  program,  which  would  include  making  all  the 
keyboard  entered  commands  associated  with  TRANS  (PLS,  PLO,  SCA,  etc.)  menu  items. 
Other  improvements  that  could  be  made  include  using  a  dialog  box  to  select  the  data  file, 
making  MacTRANS  launch  and  display  a  PICT  file  simply  by  double-clicking  on  that  file, 
allowing  the  pictures  to  be  edited  in  MacTRANS  itself,  and  adding  a  zoom-in/zoom-out 
facility  to  the  graphics  windows. 

It  has  been  shown  that  MacTRANS,  running  on  a  Macintosh  nfx,  offers  substantial 
gains  in  operational  speed  over  TRANS,  running  on  the  EUsi,  for  the  majority  of  cases. 
MacTRANS  also  has  advantages  in  the  graphics  manipulation  area,  with  the  ability  to  edit 
plots  produced  by  it  in  graphics  programs  such  as  Canvas  or  MacDraw  D. 
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APPENDIX  A 


Compiler  Switches,  Include  Files,  and  Procedures 
Necessary  for  Calling  the  Macintosh  Toolbox 

This  appendix  briefly  details  the  requirements  for  calling  the  Macintosh  Toolbox 
procedures.  For  more  detailed  information,  see  Ref.  4. 

A.l  Compiler  Switches  and  Include  Files 

The  Language  Systems  Fortran  compiler  needs  to  know  the  trap  addresses  of  the 
Toolbox  calls,  the  number  of  aiguments  each  requires,  and  what  type  of  result  each 
returns.  This  information  is  contained  in  the  “Inlines.f  ’  file  which  is  accessed  by  adding 
the  compiler  switch 

! IMP  Inlines.f 

to  the  start  of  any  Fortran  source  code  file  using  Toolbox  calls. 

Toolbox  calls  also  use  various  Pascal  records  as  arguments.  As  Language  Systems 
Fortran  cannot  use  these  records,  it  uses  its  own  records  which  are  defined  in  structures  in 
“FInclude”  files.  In  order  to  declare  variables  using  these  structures,  the  appropriate 
“FInclude”  files  must  be  included  in  each  subroutine  using  Toolbox  calls,  or  a  global 
include  compiler  switch  must  be  used  at  the  start  of  each  file  containing  those  subroutines. 
For  example,  a  file  containing  a  subroutine  using  calls  to  the  window  manager  could 
include  the  file  “Windows.f  ’  in  the  subroutine  itself,  or  use  a  compiler  switch  at  the  stan  of 
the  file.  The  compiler  switch  is  more  useful,  as  it  negates  the  need  to  place  include 
statements  throughout  the  program,  and  one  switch  can  access  as  many  of  the  “FInclude” 
files  as  necessary.  Language  Systems  Fortran  provides  a  file  named  “Toolbox. fine" 
which,  when  used  in  the  switch 
!  !G  TooUxix.fino 

gives  access  to  the  most  frequently  used  “FInclude”  files. 

“Toolbox.finc”  is  a  file  created  from  a  dummy  Fortran  program  that  includes  the  most 
frequently  used  “FInclude”  files.  However,  it  does  not  contain  the  “FInclude”  files 
“Fonts.f  ’  or  “Printing.f  ’  needed  for  the  calls  to  the  font  manager  and  print  manager  in  the 
DI-3000  JFONT  routine  emulation  and  printing  subroutines.  Also,  the  “FInclude”  file 
“QuickDraw .f’,  which  is  included  in  the  “Toolbox.finc”  file,  does  not  have  the  structure 
definition  for  “CWindows”  needed  for  the  Toolbox  calls  dealing  with  these  windows,  nor 
the  definition  for  the  “ColorArray”  structure  used  in  the  implementation  of  colour  in 
MacTRANS. 

To  remove  these  problems,  an  extended  dummy  Fortran  program,  “ExToolbox”,  was 
created  by  adding  the  extra  “FInclude”  files  and  supplementary  declarations  to  the  dummy 
Fortran  program  used  to  create  the  “Toolbox.finc”  file,  and  then  executing  the 
“BuildFTNGlobals”  command  to  create  an  “ExTooIbox.finc”  file  from  it.  The 
“ExToolbox”  dummy  program  is  shown  below.  Note,  however,  that  the 
“BuildFTNGlobals”  command  did  not  work  on  “ExToolbox”  until  the  exteriovl  statements 
in  the  “SystemSubs.f  ’  file  were  removed.  The  statements  removed  were  identical  to  those 
in  the  “Globals.f ’  file  and  this  suggests  that  they  were  not  needed  in  the  “SystemSubs.f’ 
file.  The  “MPW:Interfaces:FIncludes;Read  Me”  file  has  further  information  on  the 
“GlobaIs.r  file. 
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PBOa»M  EXTOOI£OX 
!  !SETC  USncnCUDES  =  .FALSE. 

!  !I  WINDOWS. F 
MI  ^ffiNUS.F 
!  !I  DIALCXS.F 
!  !I  EBK»S.F 
!  !I  EVENTS. F 
MI  PACKAGES.F 
!  !I  QUICKDRAW. F 
!  !I  TEXTEDIT. F 
!  !I  EXNTS.F 
!  !I  PRINTING.F 

INTE)t3Il*4  NIL 

PARAMETER<NIL  «  0) 

STRUCTORE/OOUSARRAT/ 
CHARACTER»9  TEXT 
REDORD/HOaXCR/  R2 

EM)  STRUCTURE 

STRUTIURE/OnNDOWPTR/ 

POINTER/03RAFPORT/  «P 

EM)  STRUCTURE 

END 


A. 3  Calling  Procedures 

The  Macintosh  Toolbox  calls  are  Pascal  functions  and  procedures,  so  the  same 

procedure  is  adopted  as  for  a  Pascal  subprogram  called  from  Language  Systems  Fortran. 

The  most  impoitant  features  of  this  procedure  are: 

a)  It  is  necessary  to  ensure  that  variables  passed  in  the  arguments  are  of  the  proper  data 
type.  For  example,  a  Toolbox  call  may  expea  to  see  an  standard  Pascal  integer  which 
is  two  bytes  long,  whereas  the  standard  Fortran  integer  is  four  bytes,  and  should  be 
converted  by  using  the  intrinsic  function  1NT2(). 

b)  Language  Systems  Fortran  can  pass  arguments  as  values  (%vai())  or  by  reference 
(SRef  0).  When  the  “!!MP  Inlines.f’  compiler  switch  is  used.  Language  Systems 
Fortran  defaults  to  sending  arguments  to  Pascal  subprograms  as  values.  In  this  case, 
%vai  0  is  optional  and  most  arguments  can  be  passed  as  they  would  be  in  the  call  to  a 
Fortran  subroutine,  but  iRefO  must  be  used  when  an  argument  is  VARed.  Also, 
when  an  argument  is  a  pointer  to  a  variable,  %loc()  can  be  used  to  give  the  memory 
location  of  the  variable. 
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APPENDIX  B 
TRANS  Commands 


Table  B.l  gives  a  summary  of  the  TRANS  commands.  Care  should  be  taken  when 
using  lower  case  responses  to  TRANS  prompts,  as  parts  of  TRANS  may  not  have  been 
modified  to  .iccept  them. 


TABLE  B1 

Summary  of  TRANS  Commands 


Command 

Description 

BARS 

Specifies  bars  on  DI-3000  plot  curves 

Exit 

Exits  program 

GOE 

Processes  the  input  file  to  obtain  output  for  the  comman'.  ^ 
PRColumn,  PRPlot,  PLStrip  and  PLOverlay 

LABel 

Enables  modification  and  addition  to  labelling  infonnation 

List 

Enables  a  list  of  blocks  to  be  made  or  modified 

PLOverlay 

Specifies  “overlay”  plotting 

PLStrip 

Specifies  “strip”  plotting 

PRColumn 

Specifies  tabular  output  in  the  form  of  printed  columns 

PRKonstant 

Specifies  printout  of  all  constant  blocks 

PRPlot 

Specifies  graphical  output  on  a  line  printer  or  monitor 

REPeat 

Repeats  all  previous  commands  for  another  input  data  file 

RUN 

Equivalent  to  the  commands  (in  order)  PRColumn,  PRPlot, 

PLStrip  and  GOE;  if  any  form  of  output  is  not  required,  a  carriage 
return  is  typed  in  place  ot  Mock  numbers 

SCAIe 

Enables  the  user  to  sperily  scale  limits  for  the  graphical  output 

SPAce 

Enables  the  space  at  the  left  side  of  a  plot  to  be  removed 

TIMe 

Redefines  time  (independent  variable)  parameters 

XBLock 

Enables  the  user  to  specify  any  output  block  to  be  used  as  the 
independent  variable 
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